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: FACILITY: EXECUTIVE, SWAPPER 


; ABSTRACT: THE SWAPPER SCHEDULES AND EXECUTES SWAPPING OF PROCESS 
WORKING SETS BETWEEN SWAP STORAGE AND MAIN MEMORY. 


ENVIRONMENT : 
MODE = KERNEL , RESIDENT 


AUTHOR: R. HUSTVEDT CREATION DATE: 30-NOV-76 
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MODIFIED BY: 
v03-029 ACG0440 Andrew c. Goldstein, 24-Jul-1984 10:50 
Add ref count field to ORB 
v03-028 LMP0275 Mark Pilant, 12-Jul-1984 20:31 


nitialize the ati info in the ORB to be a null descriptor 
ist epyner than an empty queue. This avoids the overhead 
of locki ng and unlocking the ACL mutex, only to find out 
that the ACL was empty. 


v03-027 Taxoo}) Todd M, 11-Apr-1984 
he ACL mutexes within” the sboject + ats Blocks of the system 
and system direc ory Ag panette es are currently 
incorrectly initial zed" s *5x000 111 wag ke them to 


v03-026 msnode? hael S. Har ne r- 
The translation nich NMST Lh RARY Y MAILBOX will hes "bs LNM$JOB 
instead of (NaS GROUP . This is a part of an effort to close 
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some privilege related security holes involving logical names 
and temporary mailbox creation. 


racogte Todd M. Katz 26-Mar-1984 

Modify the Logie’ name systes services to make use of the 

yoda sed internal protection checking mechanisms. What this 
nvolves is replacing the system firectory and system logical 
name tables’ CHIP protection templates with quad-word aligned 

Object Rights Blocks. 


v03-024 TMKO0009 Todd M. Katz 07-Mar-1984 
Add a hash code field, LNMX$W_HASH, to every translation block 
of exery pogical name table template defined. This hash code 
PROCESS Ing e used in an optimization of logical name table name 
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v03-025 
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v03-023 LY00b7 Larry Yetto 16-FEB-1984 14:33 
Fix alignment of logical name tables 
V03-022 ROW62094 Ralph 0. Weber 25-JAN-1984 


Add PROCESSing for tnowapeed global page when there currently 
exists a equivalent global page neu ing a@ page read error. 

This makes the List of ossible conditions 

inswap of a global page: 1) no Feuive) ons global page exsts, 
2) an equivalent gjeoes page exists, 35) the equivalent page is 
still being read (from a page fault read), 4) the equivalent 
page was read but encountered a page read error. 


v03-021 TMKO008 Todd M. Katz 06-Jan-1984 
Never allow the system directory logical name table to be 
deleted. This is done as follows: 


1. Set the LNMBSV_NODELETE bit within the LNMB$B_FLAGS field 
of the system directory logical name table. 

2. Check for this bit within the logical name system services 
whenever a LNMB is to be deleted. 

3. If this bit is set, do not allow the LNMB to be deleted; 
otherwise, proceed with the deletion. 


to be handled for an 
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This mechanism will prevent the directories from ever being 
oyot te thety or implicitely deleted which can cause all sorts 
of problems. 


TMKO0007 Todd M. Ka ; 

Make a small change to TMKO006. Setup the venesnies quota 
byte field of the systen directory pogical name table with a 
value of positive infinity (i.e. - “X7FFFFFFF) instead of a 
value of positive infinity minus the size of the system table. 
This is necessary because the routine which is used to 
appropriately insert the systen sabe performs the necessary 
quota outros tions; thus, in TMKOQ06 quota for the system 
table was being subtracted twice from the system directory 
logical name table. 


v03-019 TMK0006 Todd M. Katz 18-Dec-1983 
Handcraft the system logical name table mage 
instead of using the system service ($CRELNT) to CR 
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EATE it. 


SWAPPER WORKING SET SWAPPER fe 1 ~$60-1986 04:19:37 AX/VMS Macro V04-00 Page a) ooa 


v04-000 “SEP-1 SYS.SRCISWAPPER.MAR; 1 
p v03-018 wMc0018 Wayne Cardoza 02-Dec-1983 
PHDSW_WSLX, PHDSW_BAK have become longwords. 
vO3-017 TMKO000S 19-Oct-1983 


the toltewtun kernel. g Heese names which will be 
used in order to optimize $TRNLOGs: 


TRNLOG$_PROCESS_GROUP 

barge =PROCESS SYSTEM 
TRNLOG$_GROUP_ SYSTEM 

TRNLOGS ~PROCESS GROUP _SYSTEM 


Also, CREATE LNMSTEMPORARY_MAILBOX with a translation of 
LNMSGROUP instead of LNMS$JOB. 


V03-016 TMKO004 Todd M. Katz 11-Oct-1983 
Make the follo wing oo to the Logical names and tables 
that are CREATEd at system initialization time: 


- CREATE LNMSFILE_ DEV with the translations 
LNMSPROCESS, LNASJO8 LNMSGROUP LNMSSYSTEM (the change is the 
sddition of the LNM$JOB translation). 
¢: CREATE CNRSTEMPORARY YRAILBOX with the erovelet tes LNM$JOB. 
. Remove LNMSTRNLOG_PG, LNMSTRNLOG PS, LNMSTRNLOG_GS, 
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00 LNMSTR NLOG PGS, and LNMSDEFAULT_SEARCH. 

4. Add the fol lowing kernel mode Logical names which will be 
used in order to provide compatibility between V3 and v4 
for all of the old logical name system services ($TRNLOG, 
SCRELOG, S$DELLOG): 

LOGSPROCESS 
LOG$GROUP 
LOGSSYSTEM 

5. Add to the PQBSAB_SYSPQL quota List a PQL$_JTQUOTA item. 

v03-015 es og Todd M, Katz 09-Apr-1983 


Statica Ly define the CHIP protection eteusture of 
chagsiete DIRECTORY, set " 2. ginsernes attribute ote 
LNMSV_SYSTEM when creating Ln SSYSTEM E 
if “Brotec tion of YSTEM DIRECTORY and NMSSYSTE CABLE to 
E G:R W:R, Also, CREATE the 5 Ens sor mode [logical 
ith the translations NMSPROCESS,LNMSGROUP, 
LNMSSYSTEM inStead gir LNMEDEF AULT EARCH, mark both 
transiat ons not LNMSDIRECTORIES with the TERMINAL attribute. 
and CREATE the non-aliasable kerna loatcal 
LNASTRNLOG_ gre LNMSTRNLOG *OS LNMSTRNLOG. és. L TRNLOG. PGs. 


v03-014 KDM0052 Kathleen D. Morse 11-Jul-1983 
Replace references of PRS$_ TODR with EXE$GQ “SYSTIME?2, 


v03-013 DMwW4060 pve 23-Jun-1983 
Change $xxLNM value eee to be by reference 


VO3-012 DMW4054 ale et=J 1983 
Convert SYSSDISK> — YSSSYSDEVICE creation Teen SCRELOG 
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V03-006 DMW4019 alp 15-Dec-1982 
Calculate LNM Bh ay table parameters and CREATE hash table. 


V03-005 DMW4006 Lp 10-NOV-1982 
Recode creation ByesD SK and SYSSSYSDEV cf to use 
external interface ( not internal ) of $CRELOG 


v03-004 wqaeter Herb Jacobs 30-Jun-1982 
perturbation to balance set slot scanner te Ry to 
atte ate deadlocks caused there if seemi nal y th 
geet euagper action is to try to free PROCES waited 
for serv 


SOoooo 


ce from an outswapped PROCESS. 
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v04-000 SYS.SRCISWAPPER.MAR; 1 (1) 
178 i to SCRELNM 
174 : V03-011 RASO15S8 Ron Schaefer 3-May-1983 
1o2 3 Add CHIP presessren, structure to the log gigal hone structures. 
1 § : Protection stuff gn Ly Sag thd SOGW checking for now. 
if ; Fix quota for LNMSSYSTEM TABLE. 
155 ; v03-010 TMKO002 Todd 26-Apr-1983 
180 ; gr ATE the following logteat name structures’ at system 
! 1 ; tialization time: 
0 1 : ; ‘ Lua SYSTEM. TABLE. 
184 ; . LNMSSYSTEM, 
$ 185 ; . beer ite DEV (Executive Mode). 
1 § 3 4. ae DEV Su ervisor Mode). 
187 ; 5. tne EFAOLT_SEARCH. 
1 8 3 8. LMS TERPORARY _MAILBOX. 
0 1 ; . LNMSPERMANENT | MAILBOX. 
8 139 : 8. LNMSDIRECTORIES. 
00 19¢ : Change the name of LNTSSYSTEM_DIRECTORY to LNMSSYSTEM_DIRECTORY. 
80 194 ; v03-009 TMKO0001 Todd M. Katz 14-Apr-1983 
0 195 ; Make the following changes to the system directory Logical 
09 138 : name table: 
00 198 : 1. Make the gable a kernel access mode table. 

3008 + ; - po P we! TABLE point to the system directory table's 
09 0 ; 5. Set the bits "LNMTHSV_SHAREABLE and LNMTHSV_DIRECTORY within 
BR 08 ; 4. Delete the field LNMTHSL _LOGNAM. a 

0 $s ; v03-008 HRJO200 Herb Jacobs 05-Feb-1983 
3 Bg 3 Add check to BALANCE to remove confusion as to why 

0 07 ; guapper has woken up. If there are FREELIM pages on 

0000 08 ; Freelist, then don‘ “acquire fREEGOAL pages, but rather 

B28 9 ; perform requested function woken up for. 

000 1: v03-007 pMw4020 DMWalp 30-Dec-1982 
B28 \¢ : Added creation system logical directory. 

000 14: 

000 1? 3 

1? ; 
19 : 
| 
4: 
ei 
8 ; 
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vo4-000 DECLARATIONS o73Eb=| 382 HIE ESYS SRCISUAPPER MAR; 1 : 3) 
-SBTTL DECLARATIONS 
; INCLUDE FILES: 
SACBDEF ; DEFINE AST CONTROL BLOCK OFFSETS 
SDYNDEF ; DEFINE STRUCTURE TYPE CODES 
{44} ; DEFINE INTERRUPT PRIORITY LEVELS 
IRPDEF ; DEFINE 1/0 REQUEST PACKET OFFSETS 
SLNMDEF ; DEFINE ehthyn NAME OFFSETS 
LNMSTRDEF ; DEFINE LOGICAL NAME STRUCTURE OFFSETS 
OPDEF ; DEFINE OPCODE EQUIVALENT VALUES 
ORBDEF + DEFINE OBJECT RIGHTS BLOCK OFFSETS 
8 SPCBDEF ; DEFINE PCB OFFSETS 
SPFLDEF ; DEFINE SWAP FILE TABLE OFFSETS 
8 SPFNDEF : DEFINE PFN VALUES 
SPHDDEF ; DEFINE PHD OFFSETS 
; SPQLDEF ; DEFINE QUOTA SYMBO 
SPROEF ; DEFINE PROCESSOR R 
0 SPRCDEF ; CREATE PROCESS FLA 
3 SPSLDEF ; DEFINE PSL VALUES 
0 SPTEDEF ; DEFINE PAGE TABLE ENTR 
00 SVADEF ; DEFINE VIRTUAL ADDRESS FIELDS 
3 SWSLDEF ; DEFINE WORKING SET LIST BITS 
09 ; ASSUMPTIONS ABOUT THE STRUCTURE OF LOGICAL NAME AND OBJECT RIGHTS BLOCKS: 
0 
0 
0 
0 
0 
° 
0 
0 
0 
0 


ASSUME ORBSL_OWNER, 
ASSUME ORBSL~OWNER+4 
ASSUME ORBSLACL_MUTEX+4, 
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0 
0 ASSUME LNMBSL_FLINK, ea, 0 
0 ASSUME LNMBSL-FLINK+4, £0, LNMBS$L_BLINK 
0 ASSUME LNMBSL-BLINK+4, £0, LNMBS$WSIZE 
0 ASSUME LNMBS$W~SIZE+2, EQ, LNMBSB-TYPE 
0 ASSUME LNMBSB-TYPE+1. EQ, LNMBS$B-ACMODE 
0 ASSUME LNMBSB-ACMODE+1, £0. LNMBS$L-TABLE 
0 ASSUME LNMBSL-TABLE+4, £0, LNMBSB-FLAGS 
0 ASSUME LNMBSB-FLAGS+1, £0, LNMBS$T—NAME 
0 ASSUME LNMX$B_FLAGS, Ea, 0 
0 ASSUME LNMXSB"FLAGS+1, £0. LNMX$S_INDEX 
0 ASSUME LNMX$SB"INDEX+1, | £0. LNMXSWHAS 
0 ASSUME LNMX$W"HASH+2, EQ: LNMX$T-XLATION 
ASSUME LNMTHSB_FLAGS, Ea, 0 
ASSUME LNMTHSB-FLAGS+1, £0. LNMTHSL_HASH 
ASSUME LNMTHSL“HASH*+4, £0. LNMTHSL-ORB 
ASSUME LNMTHSL~ORB+ EQ. LNMTHSL~NAME 
ASSUME LNMTHSL EQ, LNMTHSL~PARENT 
ASSUME LNMTHSL“PARENT+4, £Q, LNMTHSL-CHILD 
ASSUME LNMTHSL~C ». EQ. LNMTHSL“SIBLING 
ASSUME LNMTHSL“SIBLING+4, EQ. LNMTHSL~QTABLE 
ASSUME LNMTHSLQTABLE+4, EQ. LNMTHSL~BYTESLM 
ASSUME LNMTHSL“BYTESLM+4, EQ, LNMTHSLBYTES 
EQ 
EQ 
EQ 


- O 
- ORBSL_ACL MUTEX 
. ORBSWISIZE 
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38 
3 
; 


ASSUM 


ASSUME 


SSEp=198¢ Ob:48:15 USYSYSRcSSGABPER- ma; 


ORB W.SIZE*?, EQ, ORBS$B_TYPE 
ORB$B-TYPE+ EQ, ORB =pLA 
ORB BaFLAGS+§ Q, ORBSW-REF COUNT 
ORBSW-REFCOUNT+2, £0. ORBSQ"MODE PROT 
ORBSQ-MODE PROT+8, EQ; ORBSL“SYS_PROT 
ORBSL-SYS_PROT+4, £0, ORB$L-OWN-PROT 
ORBSL-OWN"PROT+4, EQ, ORBSL~GRP~PROT 
ORBSL-GRP-PROT+4, EQ, ORBSL-WOR-PROT 
ORBSL“WOR-PROT+4, £0. ORBSL-ACL-COUNT 
ORBSL-ACL-COUNT+4, EQ, ORBSL-ACL DESC 
ORBSL “ACL “DESC +4 Q; ORBSR-MIN-CLASS 
ORBSR-MIN-CLASS*+ORBS$S. MIN CLASS - 

EQ: ORBSR_MAX_CLASS 
ORBSR_MAX_CLASS+ORB$S_ MAX CLASS - 

EQ, ORBSK_LENGTH 
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Nivea ti ONS ae te SYS.SRCISWAPPER.MAR; 1 . 
§ ; OWN STORAGE: 
-PSECT $$$220,LONG ; SWAPPER/SCHEDULER WRITABLE DATA 
} oainashaen' ; ADDRESS OF PROPER BUILD PACKET ROUTINE 
1 LONG 3; 1/0 iy ACTION RETURN 
15 RWSSWP: .LON 3; R NING WS SWP ADDRESS 
14 RSVAPTE:.LONG 3 MAINING SVA OF a 
1 CNT: .WORD 3 pM Nae PAGE Cow 
16 OSWPPGS: .WORD 3; OUTSWAP PAGE COUN 
0000 17 OSWPPCB: .LONG ; PCB ADDRESS OF OUTSWAP PROCESS 
13 SWPSGW_BALCNT:: ; COUNT OF PROCESSES IN BALANCE SET 
1 -WORD = ; EXCLUDI NULL PROCESS AND SWAPPER 
QO SCHSGW_SWPFCNT:: ; COUNT OF SUCCESSIVE SWAP 
1 -WORD 0 ; SCHEDULE FAILURES. 
-PSECT $$$260,5 ; WRITABLE, HIGH USE PSECT 
$3 
8 3 LNMSSYSTEM_DIRECTORY = THE SYSTEM DIRECTORY LOGICAL NAME TABLE. 
§ LNMSSYSTEM_DIRECTORY:: 
0 . LONG 3 FORWARD LINK 
1 ~ LONG 3; BACK LINK 
§ -WORD LNM_SYS DIR_SIZ ; SIZE OF STRUCTURE 
«BYTE DYNSC_LAM ; TYPE OF STRUCTURE 
4 -BYTE PSLSC_KERNEL ; KERNEL ACCESS MODE 
5 ADDRESS LNM_ SYSTEM _DIR_LNMTH ; DIRECTORY TABLE HEADER ADDRESS 
6 BYTE LNMBSM_NO ACIAST- ; DIRECTORY TABLES CAN NOT BE ALIASED 
7 LNMBSM_TABLE!- ; DIRECTORIES ARE TABL 
8 LNMBSM NODELETE ; DIRECTORIES CAN NOT BE DELETED 
SF 4D 45 54 53 59 53 24 4D 9 -ASCIC ‘LNMSSYSTEM_DIRECTORY" 3; NAME OF DIRECTORY TABLE 
59 52 4F 54 43 45 
40 
41 -BYTE  LNMXSM_TERMINAL ; FLAGS BYTE. NO MORE TRANSLATIONS 
4g BYTE NMX$C_TABLE 3; TRANSLATION INDEX ( SPECIAL TABLE ) 
4 » WORD ; TRANSLATION HASH CODE 
rt: -BYTE LNMTHSK_LENGTH ; SIZE OF TABLE HEADER BLOCK 
$8 LNA_SYSTEM_DIR_LNMATH:: 
4 BYTE LNMTHSM_SHAREABLE ! - ; DIRECTORY IS A SHAREABLE TABLE 
8 NMTHSM_DIRECTORY ; TABLE IS A DIRECTORY TABLE 
4 ~ LONG ; ADDRESS OF HASH TABLE 
9 ADDRESS LNM_SYSTEM_DIR_ORB ; ADDRESS OF OBJECT RIGHTS BLOC 
ADDRESS LNMSSYSTEM_DIRECTORY ; ADDRESS OF CONTAINING LNMB BLOCK 
§ LONG 3; ADDRESS OF PARENT TABLE 
. LONG ; ADDRESS OF CHILD TABLE 
: . LONG ; ADDRESS OF $18L ING TABLE 
ADDRESS LNM_SYSTEM_DIR_LNMTH ; ADDRESS OF TABL a9 ba QUOTA 
§ LONG “X7FFFFFFF 3 HORE fat QUOTA ( POSITIVE INFINITY ) 
8 -LONG “X7FFFFFFF 3; REMAINING QUOTA ( POSITIVE INFINITY ) 


ET SWAPPER 
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-BYTE —LNMXSM_XEND 

ALIGN QUAD 
LNM_SYSTEM_DIR_ORB: 

- LONG *%00010004 


WORD LNA_SYS_DIR_ORB_SIZ 
“BYTE YNSC_ORB 


tes SE 
“LONG “10 E 

Byte CORBSS_MIN_CLASS) 
-BYTE OCORBSS_MAX_CLASSJ 
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3 FLAGS BYTE. NO MORE TRANSLATIONS 
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OWNER IS [1,4] 
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2°52 One 


IT 
LASSIFICATION MASK 
MAXIMUM CLASSIFICATION MASK 


; LNMSSYSTEM_TABLE - THE SYSTEM LOGICAL NAME TABLE. 


SYSTEM_TABLE: 
. LONG 


0 
. LONG 
-WORD SYSTEM _TABLE_SIZE 
-BYTE DYNSC_ 
-BYTE PSLSC"KERNEL 
ADDRESS LNM_ SYSTEM DIR_LNMTH 
-BYTE LNMBSM_NO ACIAST- 


NMBSM TABLE 
-ASCIC HINRSS STEM. TABLE™ 


-BYTE ely TERMINAL 


-BYTE NMXS$C" TABLE 

- WORD 

-BYTE LNMTHSK_LENGTH 

SYSTEM_TABLE_LNMTH: 

-BYTE LNMTHSM_SHAREABLE!- 
MTHSM_SYSTEM 

LONG 

«ADDRESS SYSTEM_TABLE_ORB 

-ADDRESS SYSTEM” TABLE 

«ADDRESS LNM_SYSTEM_DIR_LNMTH 

qe 


ESS MODE 
TABLE “a. 
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90000000 104 41 - LONG 8 ; INITIAL QUOTA. ( POOLED ) 
! 4 ‘} «LONG ; REMAINING QUOTA ( POOLED ) 
04 } 4 2} -BYTE LNMXS$M_XEND ; FLAGS BYTE. NO MORE TRANSLATIONS 
1 219 -ALIGN QUAD 
1 “18 SYSTEM_TABLE_ORB: 
90010006 11 4 «LONG *x00010004 ; SYSTEM TABLE OWNER IS (1,4) 
0000 FFFF 011 420 «WORD 1 ; INITIALIZE ACL MUTEX 
0070' 0118 421 -WORD SYSTEM_TABLE_ORB_SIZ ; SIZE OF OBJECT RIGHTS BLOCK 
4 11A 4 «BYTE YNSC_ORB ; BLOCK TYPE 
118 4 «BYTE ; NO ACL_AS ver 
11 4 «LONG ; ZERO RESERVED WORD & REF COUNT 
00000000 1 425 -QUA ; OBJECT DOES NOT HAVE AN ACCESS MODE 
1 4 § «LONG “Xx 900008 3 SYSTEM PROTECTION IS RWE 
1 4 4 «LONG “Xx 0 ; OWNER PROTECTION IS RWE 
— 01 4 3 «LONG *x0000 pe ; GROUP PROTECTION IS R 
: 134 4 -LONG *X0000000E ; WORLD PROTECTION IS R 
20000 1 ; 430 «LONG 9 0 ; NULL INITIAL ACL 
60°00°00"00"99 90 5 Bde D - 199 431 -BYTE Core$s_MIN_CLASS) ; MINIMUM CLASSIFICATION MASK 
00°00°00 "00" Ro ee ahah: 8 O8. "00' 0154 432 -BYTE OCORBSS_MAX_CLASS) ; MAXIMUM CLASSIFICATION MASK 
00'00'00'00'00'00'00'00" 016 
168 433 
1 434 -ALIGN 5 
00000070 0180 435 SYSTEM_TABLE_ORB_SIZ = . = SYSTEM_TABLE_ORB 
000000CO0 0180 436 SYSTEM_TABLE-SIZE = . - SYSTEM_TABLE 


sci 


49 4E 49 53 59 53 0000 008" 910500 2" 
Se esdoebot 
3A 30 41 50 4F 0000001B'010E 


MOTE Raia eis 


49 46 24 4D 4E 4C gpopgo Fe 1% 099" 


4 
4 


ow 
au 
oo 
an 
ay 
ne 
oo 
ws 
=m 
we 


0000000A' 
0000017D° 


464 009° 
00001AB" 


0000018" 
0000%8F* 


49 44 24 53 59 53 Gosnenss*e10E soe” 
48 


59 53 24 53 59 53 000000C5'010E0000' 


mn 


RKING AW SWAPPER 
CLARATIONS 


16-SEP-1984 01:19: AX/VMS Macro V04-00 

g-8 sats ri et tees LEYS SRCISUAPPER MAR: 1 

; PAGED PSECT AT END OF SYS.EXE 
3; SYSTEM INITIALIZATION PROCESS 


Page 10 
wae 


-PSECT YFSLOWUSE 
IMGDESC:.ASCID /SYSINIT.EXE/ 
TTODESC:.ASCID /OPAO:/ 


PTORS AND CHAR 


STRING BUFFERS FOR THE LOGICAL NAME TABLE NAMES, 
L NAMES, AND L 
INITIALIZATIO 


CTER 
hin] NAME EQUIVALENCE STRINGS THAT ARE CREATED AT 


zor 


NM_DIRECTORIES_DESC: 
«ASCID /LNMSDIRECTORIES/ 


LNM_FILE_DEV DESC: 
sASCID §=/LNMSFILE_DEV/ 


Fy ot oe ot ot a ot ot at ot ta a a 
VI UU WUE FEW 


NOwU SW —OOONOUS UT 


LNM_PERMANENT MAILBOX DESC: 
-ASCIS6 § /LNMSPERMANENT_MAILBOX/ 


LNM_SYSTEM DESC: 
-LONG _LNM_SYSTEM_LENGTH 
-ADDRESS LNA_SYSTER 


LNM_SYSTEM DIRECTORY DESC: 
° YSTEM DIRE 
-ADDRESS LNA_SYSTER_DIR 


LNM_TEMPORARY MAILBOX _DESC: 
-ASCI6 = /LNMSTEMPORARY_MAILBOX/ 


CTORY LENGTH 
ECTORY 


Pw a 
AAAAAAAOOUU 


WNOUS WI —OOe 


LOG_G_DESC: 
-LONG LOG GROUP LENGTH 
-ADDRESS LOG_GROUP 


LOG_P_DESC: 
~LONG LOG PROCESS LENGTH 
-ADDRESS LOG_PROCESS 


LOG_S_DESC: 
~LONG LOG SYSTEM LENGTH 
-ADDRESS LOG_SYSTEA 


SYS_DISK_DESC: 
»ASCID /SYSSDISK/ 


OOo NNO 


C 
SYSSSYSDEVICE/ 


PPP PHL PLL LPL SLPS SEES 


Uk WN OOCONOusSwn—0owo 


SYS_SYSDEVICE DES 
~ASCIB / 


ss 


53 53 


SF 53 53 


40 


44 SF 4D 


54 SF 4D 


WORKING 


DECLARATIONS 


45 43 49 56 45 44 53 


sh 8 25 sures 
4 


42 4F 4A 24 4D r+] rt 
0000000 


45 43 4F 52 50 24 4D 4E 4C 
00000008 


45 54 53 59 53 24 4D 4 
0000 oOA 


9 53 24 rt 3 4 rt} 
F 54 43 4 $3 4 
00000014 


UNNNNG 99S FOODS SOI OSA OI OWVNOOOMOTDAIWoOommmmna 


Bests st beeeeeee ees see s333S eS 
Orornsnew 


45 54 53 59 53 ee ri é 4s 
00000010 


50 55 4F 52 47 246 47 4F ac 
0000000 


mm tk nt a st $s os ss Ws ss Ss ss > ss ss 2 ss 


RLSSSa~ 


ET SWAPPER 

487 

488 TRNLOG_GS_ DESC: 
4 -ASCID 
73 TRNLOG_PG_DES 
492 ~ ASCI 
34 TRNLOG_PS_DES 
495 ASCI 


$36 
497 TRNLOG_PGS_DESC: 
498 


SSEp=198e OS:4B:1S ESHEYSRCHSGABPER sae: 
/TRNLOGS_GROUP_SYSTEM/ 


/TRNLOG$_PROCESS_GROUP/ 


/TRNLOGS_PROCESS_SYSTEM/ 


-ASCID /TRNLOGS_PROCESS_GROUP_SYSTEM/ 


LNM_GROUP: 
ASCII 


LNM_JOB: 
ASCII 
LNM_JOB LENGTH 


LNM_PROCESS: 
ASCII 


-ASTII 


LNM_SYSTEM 
ASCII 


ASCII 


1 
1 
1 
1 
1 
1 
1 
1 
1 
; 


doe pan 
ASCII 


LOG_GROUP_LENGTH 


LNM_ GROUP LENGTH = 


9 

0 

1 

§ 

4 

5 

; 

5 

9 LNM_PROCESS_LENG 
§ LNM_PROCESS DIRE 
4 
5 
; 
9 
; 


/LNMSGROUP/ 
- ~ LNM_GROUP 


/LNM$JOB/ 
= 


. > LNM_J 


NMSPROCESS/ 


/L 
TH = . = LNM_PROCESS 
CTOR 


/LNMSPROCESS -DIRECTORY/ 
LNM_PROCESS_DIRECTORY_LENGTH = . - LNM_PROCESS_DIRECTORY 
/LNMSSYSTEM/ 

LNM_ SYSTEM_ LENGTH = . = LNM_SYSTEM 


LNM_SYSTEM DIRECTORY: 
/LNMSSYSTEM_ DIRECTORY/ 


g LNA. SYSTEM_DIRECTORY_LENGTH = . 


LNM_SYSTEM TABLE: 
-ASCII = /LNMSSYSTEM_TABLE/ 


§ LNM_SYSTEM_TABLE_LENGTH = . 


- LNM_SYSTEM_DIRECTORY 


- LNM_SYSTEM_TABLE 


fossenaye/ 


LOG_GROUP 


Page 


SWAPPER 
vou-000 


53 53 45 43 4F 52 50 26 47 4F 4C 
00000008 


Tons PPER "SSEp=198e Ob:48:15 ESS USAcHSGABeERcman:1 «=| P88", voe 


LOG =PROCESS : 


ae 


ASC /LOGSPROCESS/ 


II 
LOG_PROCESS LENGTH =. - LOG_PROCESS 


LOG_SYSTEM: 
sASCII /LOGSSYSTEM/ 
LOG_SYSTEM_LENGTH =. - LOG_SYSTEM 


4D 45 54 53 59 53 24 47 GF 4C 
0000000A 


; ATTRIBUTE, ACCESS MODE AND ITEM BUFFERS WHICH ARE PASSED BY REFERENCE. 


B4 
Br 
Bs 
ay 
BH 
¢ 4 
eS i 
C9 4 
¢ 44 EXEC_MODE: ; EXECUTIVE ACCESS MODE BUFFER 
00000001 c9 i .LONG PSLS$C_EXEC 
CD 547 KERNEL_MODE: ; KERNEL ACCESS MODE BUFFER 
00000000 CD 48 “LONG PSLSC_KERNEL 
D1 550 SUPER_MODE: ; SUPERVISOR ACCESS MODE BUFFER 
00000002 D1 39 .LONG PSLSC_SUPER 
PR A LNM_NO_ALIAS: ; NO_ALIAS ATTRIBUTE BUFFER 
00000001 15 34 <LONG LNMS$M_NO_ALIAS 
1D9 36 TERMINAL_BUFFER: ; TERMINAL ATTRIBUTES ITEM BUFFER 
00000200 1p9 Hf “LONG LNMSM_TERMINAL 
1DD 59 ; 
1DD 560 : ITEM LISTS FOR THE CREATION OF THE LOGICAL NAMES SETUP AT SYSTEM 
1p : INITIALIZATION TIME. 
1DD 46-563 * 
1DD 564 DIRECTORIES LIST: ; ITEM LIST FOR LNMSDIRECTORIES 
004 01DD 565 WORD : TERMINAL ATTRIBUTES ITEM 
003 O1DF 66 "WORD _LNM$_ATTRIBUTES 
90000109" 1E1 e ADDRESS TERRINAL _ BUFFER 
19 
15 169 20 -WORD LN PROCESS. DIRECTORY_LENGTH ; LNMSPROCESS_DIRECTORY STRING ITEM 
9000 166 1D es [ADDRESS LNM~PROCESS_DIRECTORY 
00000 IF o3 "LONG 0 
O14 1F ¢3 .WORD LNM_SYSTEM_DIRECTORY_LENGTH ; LNMSSYSTEM_DIRECTORY STRING ITEM 
3 1F 6 “WORD _LNMS_STRING 
9000 1 is 169 , - ADDRESS) LNA SYSTEM_DIRECTORY 
3t8 
00000000 1 0 .LONG 0 ; END OF ITEM LIST 
é FILE_DEV_SUPER_LIST: ; ITEM LIST FOR SUPERVISOR LNMSFILE_DEV 
TWORD ~ LNM_PROCESS_LENGTH : LNMSPROCESS STRING ITEM 
nA "WORD CNRS STRING 
00 p ; : ~ ADDRESS LNMPROCESS 
0007 0211 8 .WORD LNM_JOB_LENGTH : LNMS$JOB STRING ITEM 


S 
SWAPPER WORKING SET SWAPPER 16*SEP-1984 01:19:57 VAX/VMS Macro V04-00 p 13 
v04-0 DECLARATIONS reer aBt BULB Ts FANEMES Hegre vos nae watt 
1 WORD __LNM$_STRING 
op00dt 36 13 “ADDRESS LNM7JOB 
00 19 "LONG 0 
9 Rein 39 WORD LNM_GROUP_LENGTH ; LNMSGROUP STRING ITEM 
F 594 “WORD. _LNMS_ STRING 
6008 och ; $6 ct te a tial 
4 0909 998 WORD LNM_SYSTEM_LENGTH ; LNMSSYSTEM STRING ITEM 
2 B 59 “WORD _LNMS_STRING 
90000170" Oeep “ADDRESS LNM7SYSTEM 
00 1 § "LONG 0 
00000000 5 608 LONG 60 ; END OF ITEM LIST 
9 605 FILE_DEV_EXEC_LIST: ; ITEM LIST FOR EXECUTIVE LNMSFILE_DEV 
9 6 $ PERMANENT MAICBOX LIST: ; ITEM LIST FOR LNMSPERMANENT_MAILBOX 
004 0939 GORD LAM. SYSTEM_LENGTH : LNMSSYSTEM STRING ITEM 
2 B 608 “WORD _LNMS_STRING 
SSRs" Sa Abus tii 
‘3 611 ‘ 
00000000 0245 $12 LONG 0 ; END OF ITEM LIST 
49 614 LOG_G_LIST: ; ITEM LIST FOR LOGSGROUP 
$008 49 615 ~ WORD LNM_GROUP_LENGTH 3; LNMSGROUP STRING ITEM 
002 4B 918 ~ WORD LNMS_STRING 
Sm HE fig bles nla 
55 O61 ; 
00000000 0255 $20 .LONG 0 ; END OF ITEM LIST 
59 602 LOG_P_LIST: : ITEM LIST FOR LOGSPROCESS 
0 59 6 “WORD LNM_PROCESS_LENGTH : LNMSPROCESS STRING ITEM 
0 5B 62h “WORD _LNMS_STRIN 
90000150" 0250 : “ADDRESS LNA PROCESS 
65 6 ’ 
? i 628 WORD LNM_JOB_LENGTH : LNMSJOB STRING ITEM 
67 6 “WORD. _LNMS_STRING 
90000156 0269 630 “ADDRESS LNM7JOB 
0000000 0260 631 "LONG 0 
00000000 071 3 .LONG 60 ; END OF ITEM LIST 
fe BR LOG_S_LIST: ; ITEM LIST FOR LOGSSYSTEM 
000 007 $ "WORD LNM_SYSTEM_LENGTH : LNMSSYSTEM STRING ITEM 
2 027 “WORD. _LNMS_ STRING 
000017" 0279 638 “ADDRESS LNMTSYSTEM 
000 037d 65 "LONG 0 
00000000 0281 a} LONG 0 ; END OF ITEM LIST 
ri} SYSTEM_LIST: : ITEM LIST FOR LNMSSYSTEM 
0004 etd “WORD : TERMINAL ATTRIBUTES ITEM 
3 45 “WORD  LNMS_ATTRIBUTES 


SWA! 
v04 


m3 
SWAPPER WORKING SET SWAPPER S P=! AX/VMS Macro V04-00 Pp 14 SWA 
rr ave ti DECLARATIONS Morera 1oke Obiaaits PeNCMeS Macro. ¥04.00 a V04: 
079" 0289 64 LADDRESS. TERMINAL_BUFFER 
mia eter 
19 -WORD LNM_SYSTER TABLE LENGTH ; LNMSSYSTEM, TABLE STRING ITER 
WORD _LNMS STRING 
0000196" “ADDRESS  CNMTSYSTER. TABLE 
00 5 ‘LONG 0 
00000000 929 654 LONG 0 ; END OF ITEM LIST 
Al 656 TEMPORARY MAILBOX LIST: ; ITEM LIST FOR LNMSTEMPORARY MAILBOX 
8 A GORD LA JOB LENGTH » + LNM$JOB STRING ITEM 
9000 é Ag 888 “ADDRESS LNR~JOB 
000000 OgA9 660 "LONGO 
00000000 92ap 664 .LONG 0 ; END OF ITEM LIST 
BY 664 TRNLOG.GS_LIST: ; ITEM LIST FOR TRNLOGS_GROUP_SYSTEM 
009 0581 665 “ORD "LOG, GROUP LENGTH : LOGSGROUP STRING ITEM" 
002, 0285 66 "WORD _LNMS_STRING 
00001A8* 0285 66 “ADDRESS LOG"GROUP 
9000000 0289 668 "LONGO 
OA 05RD £90 .WORD LOG. SYSTEM. LENGTH ; LOGSSYSTEM STRING ITEM 
002 BF 671 “WORD LNM mS_S TRING 
900018F* O3¢] 672 “ADDRESS LOGTSYSTEM 
90000000 92c3 678 “LONGO 
0000000 92c9 67 .LONG 0 : END OF ITEM LIST 
f> S79 TRNLOG_PG, LIST: ; ITEM LIST FOR TRNLOGS_PROCESS_GROUP 
$3 ch 678 "ORD | LOG_PROCESS_LENGTH : LOGSPROCESS STRING ITEM 
02 Osck 67 "WORD _LNMS. STRING” 
000001 DB} 680 "ADDRESS LOG7PROCESS 
§0990000. D> 68 "LONGO 
009 ett) -WORD LOG, GROUP LENGTH ; LOGSGROUP STRING ITEM 
2 05DB 684 "WORD _LNMS STRING 
0000148" 0200 685 "ADDRESS LOG~EROUP 
00000 E] 686 "LONGO 
00000000 eS 688 LONG 0 : END OF ITEM LIST 
£3 $90 TRNLOG_PS_LIST: ; ITEM LIST FOR TRNLOGS. PROCESS. SYSTEM 
0 O2E9 691 "GORD | LOG_PROCESS_LENGTH : LOGSPROCESS STRING ITEM 
0 EB 69 "WORD _LNMS. STRING” 
0000184" O2ED 49 "ADDRESS LOG7PROCESS 
0000 F] $94 "LONGO 
OA OBE 636 .WORD _LOG_SYSTEM_LENGTH : LOGSSYSTEM STRING ITEM 
2 O5F? 69 "ORD _LNMS STRING 
000018F* O29 69 "ADDRESS LOG7SYSTEM 
0 OD "LONGO 
00000000 o} 701 LONG 0 : END OF ITEM LIST 


N 3 
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y0e-006 DECLARATIONS ~SEpr18Be BSLaiTS ANEMBS Macro V04=00 ve ©) V04: 
3 TRNLOG_PGS_LIST: ; ITEM LIST FOR_TRNLOGS_PROCESS_GROUP_SYSTEM 
4 WORD LOG_PROCESS_LENGTH + LOGSPROCESS STRING ITEM 
00184" 0309 OR. ME PROCESS 
itd i p 5 “LONG 0 
009 1 «WORD LOG_GROUP_LENGTH : LOGSGROUP STRING ITEM 
00001AB' i q “ADDRESS, LO6- ee 
itd 000 19 ar “LONG 0 
00, 1D ar «WORD LOG_SYSTEM_LENGTH ; LOGSSYSTEM STRING ITEM 
ter’ O82) 18 RODRESS CORT SYSTeR 
86090080. 3 at “LONG 0 
00000000 ’ £19 .LONG 0 : END OF ITEM LIST 
D 721 oO 
: ys, : ; ARGUMENT LISTS FOR THE SCRELNMS. THIS SYSTEM SERVICES CAN NOT ube DIRECTLY 
D 723 : ISSUED AT SYSTEM INITIALIZATION BECAUSE THe SWAPPER DOES NOT HAVE A P1 SPACE 
032d 704 ; WITH SYSTEM SERVICE VECTORS; HOWEVER T MAYBE CALLED DIRECTLY. SETUP AN 
03 p 4 ; ARGUMENT LIST FOR EACH AND EVERY DaReCt CAL 
D «797° 
6 D 728 DIRECTORIES _ARG: : ARGUMENT LIST FOR LNMSDIRECTORIES 
8 D 729 SCRELNM - 
D 730 ACMODE = KERNEL_MODE, - 
0 D «731 TTR = LNM_NO-ALIAS, - 
D 138 ITMLST = DIRECTORIES LIST, - 
0320 7 LOGNAM = LNM_DIRECTORIES DESC, 
i ri TABNAM = LNM~SYSTEM_ DIRECTORY. “DESC 
45 736 FILE_DEV_EXEC_ARG: ; ARGUMENT LIST FOR EXECUTIVE LNMSFILE_DEV 
0 43 737 SCRELAM - 
0345 738 ACMODE = EXEC_MODE, - 
345 739 ITMLST = FILE~DEV_EXEC_LIST, - 
45 740 LOGNAM = LNM_FILE-DEV_BESC 
43 241 TABNAM = LNMTSYSTEM_ DIRECTORY DESC 
2p rg FILE_DEV_SUPER_ARG: ; ARGUMENT LIST FOR SUPERVISOR LNMSFILE_DEV 
5D 744 SCRELNA - 
5D 745 ACMODE = SUPER_MODE, - 
BD 146 ITMLST = FILE BEV_SUPER_LIST, - 
D 7% LOGNAM = LNM_FILE~DEV_DESC, - 
i 148 TABNAM = LNM~SYSTEM_DIRECTORY_DESC 
75 750 LOG_G_ARG: ; ARGUMENT LIST FOR LOGSGROUP 
75 751 SCRELNM - 
7 138 ACMODE = KERNEL_MODE, - 
75 75 ITMLST = LOG_GCIST, - 
7 13h LOGNAM = LOG"G DESC. - 
¢3 g 5 TABNAM = LNM“SYSTEM. DIRECTORY _DESC 
D 7 5 LOG_P_ARG: ; ARGUMENT LIST FOR LOGSPROCESS 
D f : SCRELNM - 
D ACMODE = KERNEL_MODE, - 


B 4 
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viva ts DECL g7SE5- 38 eee YOYS SRCTEUAPPER MAR: 1 . (6 
ITMLST = LOG_P_ 

OGNAM = LOG-P - 

ABNAM = LNM"SY DIRECTORY_DESC 


LOG_S_ARG: ; ARGUMENT LIST FOR LOGSSYSTEM 
SCRELNM rs 


So 
o 
2 
> 
=z 
onun 
- 
oO 
o 
i 


TABNAM 
ee ee ; ARGUMENT LIST FOR LNMSPERMANENT_MAILBOX 


KERNEL MODE, - 

PERMANENT MAILBOX LIST, = 
LNM_PERMANENT_MAICBOX_DESC, - 
LNM~SYSTEM_DIRECTORY_DESC 


SYSTEM_ARG: ; ARGUMENT LIST FOR LNMSSYSTEM 
SCRELNM - 


_— 
_ 
z 
- 
“eo 
~ 
nhnunun 


— 

~« 

=z 

mn 

“~ 
nunuununn 

mn 

~< 

nw 

—a 

m 

= 
—-- > =z 
mmr O 
BBO 


C - 

ECTORY_DESC 

TEMPORARY MAILBOX, ARG: ; ARGUMENT LIST FOR LNMSTEMPORARY_MAILBOX 
KERNEL_MODE, - 

TEMPORARY MAILBOX_LIST, - 

LNM_TEMPORARY_MAICBOX_DESC, - 

LNM~SYSTEM_DIRECTORY_DESC 


TABNAM 


— 
“+ 
= 
a 
mn 
~ 

nunn 


WOOO OO O0900 09 0909 09 09 09 09 09 SII NI NISSEN NNO PAPO AAA AOAO 


0000009090900 09090060 09 0009 089 0908 SINISE OI 
PAE 9 OD NAN WIN OS OD NAME WIN OS OD NA NE WWI 3 OC ODNOAU EW 0 OONIO UF Ww" O 


5 
5 
5 
Ds 
be 
ED 
ED 
ED 
ED 
ED 
ED 
68 
493 TRNLOG_GS ARG: ; ARGUMENT LIST FOR TRNLOGS$_GROUP_SYSTEM 
8 ACMODE = KERNEL_MODE, - 
05 79 ITMLST = TRNLOG-GS_LIST, - 
05 79 LOGNAM = TRNLOG~GS DESC, - 
03 ; TABNAM = LNM_SYSTEM_DIRECTORY_DESC 
1D 0 TRNLOG_PG_ARG: ; ARGUMENT LIST FOR TRNLOG$_PROCESS_GROUP 
1D STRELNM - 
1D 89 ACMODE = KERNEL_MODE, - 
1D ITMLST = TRNLOG-PG_LIST, - 
1D LOGNAM = TRNLOG-PG DESC, - 
1 TABNAM = LNM_SYSTEM_DIRECTORY_DESC 
TRNLOG_PS_ARG: ; ARGUMENT LIST FOR TRNLOGS$_PROCESS_SYSTEM 
4 STRELNM - 
4 0 ACMODE = KERNEL_MODE, - 
4 1 ITMLST = TRNLOG-PS_LIST, - 
4 1 LOGNAM = TRNLOG-PS“DESC, - 
435 TABNAM = LNM_SYSTEM_DIRECTORY_DESC 
440 814 TRNLOG_PGS_ARG: ; ARGUMENT LIST FOR TRNLOGS_PROCESS_GROUP_SY 
44D 81 SCRELNM - 
44D 81 ACMODE = KERNEL_MODE, - 


¢ 4 
SWAPPER WORKING SET SWAPPER 16-SEP-1984 1 AX/VMS Macro V04-0 Page 1 
iret DECLARATIONS g-SEF =}382 84:13: 7 YOYS. SRCISUAPPER ett 1 ae 
~ 44D 1 ITMLST = TRNLOG -POS-tIST. : 
44D 81 OGNAM = TRNLOG~PGS~DESC 
44 ABNAM = LNM_SYSTEM-DIRECTORY_DESC 
000001 .PSECT $$$260 ; WRITABLE PSECT 
; ITMLST MUST BE FOLLOWING TWO CRELNM 
1 4 SYS_DISK_ARG: ; ARGUMENT LIST FOR SYSS$DISK 
1 5 SCRELNM - 
1 6 ACMODE = EXEC_MODE, - 
1 LOGNAM = SYS_BISK_OESC, - 
TABNAM = LNM~SYSTEM_DESC 
1 SYS_SYSDEVICE_ARG ARGUMENT LIST FOR SYSSSYSDEVICE 
19 1 SCRELAM - 
19 Q ACMODE = EXEC_MODE, - 
19 LOGNAM = SYS SYSDEVICE_DESC, - 
19 4 TABNAM = LNM~SYSTEM DESC 


WORKING SET SWAPPER ae i doth 9 te 4 eevee Macro V04-00 Page } SWAP 


wires 
V04- DECLARATIONS SEP- SYS.SRCJSWAPPER.MAR; 1 


0000 ~-PSECT YFSLOWUSE ; PAGED PSECT AT END OF SYS.EXE 
; DEFINE A QUOTA bist TO BE USED BY VARIOUS PIECES oF THE SYSTEM WHEN 
; CREATING A SPECIAL SYSTEM PROCESS 1, A bayeees ACP. EVERY QUOTA 
; IS MENTIONED EXPLICITLY. NOTE THAT THIS LIST CAN BE TAILORED BY 
; et IT TO SOME TEMPORARY tT a AND APPENDING NEW QUOTA ITEMS 
; TO THE END OF THE LIST. THE SCREPRC SYSTEM SERVICE USES THE LAST 
3 VALUE OF A SPECIFIED QUOTA Ne THE LIST WHEN IT CREATES A PROCESS. 
; NOTE THAT THE END OF THE I T MUST BE TERMINATED BY A ZERO BYTE 
; AND THAT THE benety OF THE LIST, AS GIVEN BY POLSC_SYSPQLLEN, DOES NOT 
+ INCLUDE THE LIST TERMINATOR, 
PQLSAB_SYSPQL:: i SYSTEM PROCESS QUOTA LIST 
1 -BYTE PQLS_ASTLM ; PROCESS AST LIMIT 
0000000A «LONG 
2 -BYTE PQLS$_BIOLM ; PROCESS BUFFERED 1/0 LIMIT 
0000000A «LONG 0 
-BYTE PQL$ BYTLM ; PROCESS BUFFERED 1/0 BYTE LIMIT 
000080 + LONG 
-BYTE PQLS_CPULM ; PROCESS CPU TIME LIMIT 
00000 -LONG 0 ; ZERO IMPLIES NO LIMIT 
-BYTE PQLS$_DIOLM ; PROCESS DIRECT 1/0 LIMIT 
0000000A + LONG 
-BYTE PQLS_FILLM ; PROCESS OPEN FILE LIMIT 
000000 - LONG 
-BYTE PQL$ PGFLQUOTA ; PROCESS PAGE FILE QUOTA 
00004E «LONG 
~-BYTE PQLS_PRCLM i PROCESS SUBPROCESS CREATION LIMIT 
000000 - LONG 
. PQL$_TQELM ; PROCESS TIMER QUEUE ENTRY LIMIT 
00000008 - LONG 
-BYTE Toh S MSDE AULT ; PROCESS DEFAULT WORKING SET SIZE 
00000064 «LONG 0 
A . Ooh S-WSQUOTA ; PROCESS WORKING SET QUOTA 
000000C8 - LONG 
D -BYTE SOK R USER TENT ; PROCESS WORKING SET EXTENT LIMIT 
000003E8 -LONG 1 
-BYTE + laine ; PROCESS LOCK LIMIT 
000000: -LONG 1 
~BYTE PQL$_JTQUOTA ; JOB-WIDE LOGICAL NAME TABLE QUOTA 
000004 - LONG 024 
10$: -BYTE PQLS_LISTEND ; END OF PROCESS QUOTA LIST 
00000046 PQLS$C_SYSPQLLEN == 10$ - PQLSAB_SYSPQL ; LENGTH OF LIST (MINUS TERMINATOR) 


SWAPPER WORKING SE 
y0ee 000 
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EXESSWAPINIT a ty 7 


SMINITIALIZATION AND STARTU SoSEP-1oB4 BSiaBitS Lye eacTeGappee mags 1 


sat -SBTTL EXESSWAPINIT = INITIALIZATION AND STARTUP FOR SWAPPER 
4AC 3+ 
4AC § ; FUNCTIONAL DESCRIPTION: 
4aC ; EXESSWAPINIT Is ENTERED WHEN THE | $i SWAPPER rhROcess IS FIRST 
4AC ; SCHEDULED AFTER A SYSTEM BOooT/S ART THIS TRANSFER OCCURS 
4aC 891: VIA THE INITIAL PC VALUE B TINTON Tite HARDWARE PCB FOR THE 
ac 3 : SWAPPER PROCESS. R4 CON Thin THE ADDRESS OF THE SWAPPER PCB. 
4AC 894 :=- 
tag B98 
at 6 E EXESSWAPINIT:: ; SWAPPER INITIALIZATION 
aac 38 ; INITIALIZE PAGED POOL. 
SB 00000000" gr DO 046A 0 MOVL GPEXESGL_PAGED.R11 : POINT TO START OF PAGED POOL 
D4 0483 901 CLRL + : ZAP FORWARD LINK 
6B 00000000'GF 00 4B) ? : MOVL § G*SGNSGL_PAGEDYN,(R11) : AND SET SIZE 
4BC 904 ; 
4BC 905 ; ALLOCATE LOGICAL NAME HASH TABLE. THE NUMBER OF ENTRIES IN THE HASH TABLE 
4BC 906 ; MUST BE A POWER OF TWO. SO THE ALLOCATED SIZE IS THE SMALLEST POWER OF 
#BC 30 ; TWO LARGER THAN THE SYSGEN PARAMETER. 
00000000'FF DD 048 308 PUSHL @LNMSAL_HASHTBi ; SAVE ADDR OF CRELNM ITMLST BLOCKS FOR 
se or op Ses HE moot at Lge ine rusee Teese 
57 00000000" GF 48 a pe 4C 31g 408: SUBL3 #1.G*LNMSGL_HTBLSIZSCR8].R7 ; PICK UP ONE LESS THAN SYSGEN PARM 
7 GE O4CE 91 CVTILF R7.R ; CONVERT TO FLOATIN 
57 57 O07 O7 EF 0401 914 EXTZV #7.#7,R7,R7 : PICK UP EXPONENT NOW THE POWER OF 2 
1 DS 0406 915 CLRL oR : CLEAR A REGIS STER 
00 51 7 £2 408 916 BBSS  R7,R1,50$ ; THE SIZE OF THE TABLE ROUNDED uP 
00000000'GF48 51 00 O4DC 917 50S: MOVL  R1,G*LNMSGL_HTBLSIZSCR8]; WRITE BACK THE CORRECT VALUE 
pe 58 SF 4 aed 98 SOBGEQ R8.40$ : LOOP TWO TIMES 
tee 4 9; 3; INITIALIZE THE SYSTEM SPACE HASH TABLE. 
51  00000000'GF DO O4E7 9 ; MOVL  G*LNMSGL_HTBLSIZS,R ; SIZE OF TABLE IN ENTRIES 
51 0000000C 9F41 DE O4EE 9 MOVAL a@#LNMHSHSK Bere TERT). R1: MULT BY 4 AND ADD OVERHEAD 
00000000'GF 16 O04F6 924 JSB Grex ESAL PAGED + ALLOCATE MEMORY 
06 8B 4FC 925 PUSHR gece 3 SAVE REGISTERS DESTORYED BY MOVCS 
62 51 00 00 8F 9 C O4F ? $ MOVCS 9,40 Py: at, (R2) + ZERO HASH TABLE 
1 BA 05 POPR <ri,rd> * ; RESTORE REGISTERS DESTORYED BY MOVCS 
2 4 8 ; NOTE: tHAT R2 COMES BACK AS R4 
50 00000000' GF a ¢ 7 SUBL3#' + GOLNRS L_HTBLSIZS.RO ; CALC UPPER BOUND OF HASH INDEX 
64 50 OD 3 F 3 0 MCOML RO.LNA HSL~MASK(R4) + STORE HASH INDEX MASK 
BAG 51 : 1 MOVW UNS H$W~SIZE(R4) : STORE SIZE IN STRUCTURE HEADER 
AAG 38 51 ? : MOVB  #DYNSC_RSHT;LNMHSHSB_ TYPE(R4) 
1A ; STORE STRUCTURE TYPE 
Q0000000'FF 64 9€ 1A 934 MOVAB (R4) ,@LNMSAL_HASHTBL : STUFF WAY POINTER TO TABL 
1 4 5 + NOTE: THAT THE HASH TABLE HAS BEEN 
5 $ ; INITIALIZED TO ZERO 
1 3 
: 1 § ; FIX UP THE SYSTEM LOGICAL NAME DIRECTORY, AND INSERT IT IN INTO THE 
; 40 ; APPROPRIATE HASH BUCKET OF THE SHAREABLE LOGICAL NAME HASH TABLE. 
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1 9% 
OO00'EF 9 4 MOVAB LNMSSYSTEM_DIRECTORY,R3 
dd0000%¢ "er Be D ‘ i MOVAL The) LNA STS EM_DIR_LNMTH*+LNMTHSL_HASH 
F 694 ; HASH TABLE ADDRESS IN LNMTH 
0 1 3 9A 46 MOVZBL LNMBST_NAME(R3) ,RO ; ET SIZE OF DIRECTORY NAME 
12 A 9 4 MOVAB LNMBST NAME+1(R3),R1 + GET ADDRESS OF DIRECTORY NAME 
0 OO'EF 1 48 JSB LNMSHASH + HASH THE DIRECTORY NAME 
6 CA 4 BICL2 LNMHSHSL_MASK(R4),RO  : MODIFY THE INDEX TO BE IN RANGE 
Oc ad DE 054 MOVAL  (R3),LNMASHSC_BUCKET(R4) ERO 
4 ; INSERT DIRECTORY LNMB IN HASH TABLE 
04 a3 0C A640 DE 054 MOVAL LNMHSH$C_BUCKET(R4)CRO,LNMBSL_BLINK(R3) 
48 3 INSERT HASH TBL ENTRY IN DIRECT LNMB 
48 : 
78 : ; FIXUP THE SYSTEM LOGICAL NAME TABLE, LNMSSYSTEM_TABLE, AND INSERT IT INTO THE 
348 ? ; APPROPRIATE HASH BUCKET OF THE SYSTEM LOGICAL NAME HASH TABLE. 
548 «959 
51 000000C0'EF oe 548 960 MOVAB SYSTER TABLE ,R1 ; RETRIEVE SYSTEM TABLE LNMB ADDRESS 
BORER ee wee D $38 961 MOVL @LNMSAC_HASHTBL,- ; MOVE THE ADDRESS OF THE SHAREABLE 
00000E8' EF 4 96¢ SYSTEM TABLE_LNMTH+= ; LOGICAL NAME HASH TABLE INTO THE 
55D 96 LNMTHSC_HASH ; SYSTEM TABLE’S TABLE HEADER 
52 ps 0550 964 CLRL ORR ; NO SPECIAL INSERTION ATTRIBUTES 
00000000'GF 16 se weg JSB G*“LNMSINSLOGTAB ; APPROPRIATELY INSERT LNMSSYSTEM_TABLE 
5 967 ; 
6 968 ; CREATE THE SYSTEM LOGICAL NAMES, CONTAINED WITHIN THE SYSTEM DIRECTORY TABLE. 
56 969 > = ALL OF WHICH MUST BE CREATED AT SYSTEM INITIALIZATION TIME. 
aes ony 
80000000'9F FDC4 CF FA $65 a8 seca DIRECTORIES ARG ——— ee 
36E 974 a#SYSSCRELNA-P1SYSVECTORS+*xX80000000 
. con eee at ia 36 976 CALLG - Fe aor cae aad ; CREATE EXECUTIVE LNMSFILE_DEV 
a 7 978 a#SYSS$CRELNM-P1SYSVECTORS+*x80000000 
80000000'9F FDE2 CF FA arf 3 ? paAS FILE_DEV_SUPER_ARG ES, SPR SET eee 
5 ? ; a#SYSSCRELNM-PTSYSVECTORS*+*X80000000 
: ion neon be 2 9 4 CALLG - fee iad ; CREATE LOGSGROUP 
; ; $ a#STSSCRELNM-P1SYSVECTORS*+*X80000000 
; cos eek a ; CALLG - a: * ae ; CREATE LOGSPROCESS 
; aaSTSSCRELNM-P1SYSVECTORS*+*X80000000 
; or eek ne ? % CALLG - ae & ce ; CREATE LOGSSYSTEM 
ett 38 34 a#STSSCRELNM-P1SYSVECTORS+*X80000000 
80000000'9F FETE CF FA 44 38 errant PERMANENT MAILBOX_ARG, - eS SE pee 
whi Hi 98 a#SYSSCRECNM-P1SYSVECTORS+*X80000000 


EXES ESSUAPl 


80000000'9F FE2D CF FA 
80000000'9F FESC CF FA 
80000000'9F FE4B CF FA 
80000000'9F FESA CF FA 
80000000'9F FE69 CF FA 
80000000'9F FE78 CF FA 

54 8ED0 

00000194"EF 64 ODE 
QOOOOIAC'EF O000°C4 ODE 
80000000'9F Q0000180'EF FA 
80000000'9F  Q0000198'EF FA 
OO'8F 9A 

50 4 00 

Q0000000°EF 16 
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NIT = IN 
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CALLG - SYSTE ; CREATE LNMSSYSTEM 
ETE cA S an<prsvsvectons+*x80000000 


CALLG = ; CREATE LNMSTEMPORARY_MAILBOX 
TEMPORARY MAILBOX_ARG 
aaSVSSCRECNM-P1SYSVECTORS+*x80000000 

CALLG = aap ; CREATE TRNLOGS_GROUP_SYSTEM 
Das YSECRECNMP1SYSVECTORS**x80000000 

CALLG = ap ; CREATE TRNLOGS_PROCESS_GROUP 
avsyss grr 5 Int, e ceastenastenenseete 

CALLG - ; CREATE TRNLOGS_PROCESS_SYSTEM 
TRNLOG_PS 
anSYSECRECNMOP1SYSVECTORS+*x80000000 

CALLG = ; CREATE TRNLOG$_PROCESS_GROUP_SYSTEM 
TRNLOG_PGS_A 


at Ne pee | 


: CREATE TWO STARTUP LOGICAL NAMES. 


THE SCREPRC_S MACRO CANNOT BE USE 
pave OT HAVE’ A P1 SP Pl SYSTEM oeev ag 


POPL RG RECOVER ADDR OF CRELOG BLOCK 
MOVAL (R4),SYS_DISK LARG+CRELNMS_ TALS 
YM HE ADDRESS OF THE ITEM LIST 


MOVAL BDLSL_SYSDLOG(R4),SYS _svapevice _ARG+CRELNMS_IT 
; STUFF THE ADDRESS OF THE ITEM LIST 


CALLG - ; CREATE SYSSDISK 
SYS pisk ARG, = 
@#SYSSCRELNM-P1SYSVECTORS+*x80000000 

CALLG - ; CREATE SYSSSYSDEVICE 


SYS_SYSDEVICE_A 
au STSSCRELNMCP1 SY SVECTORS+*x80000000 


MOVZBL #BDLSS_ CRELNM_ITMLST,R1 ; GET THE Size OF THE STRUCTURE 
MOV : MOVE STRUCTURE ADDR INTO CORRECT REG 
JSB EXE SDEANONPGDSIZ + RETURN THE MEMORY 


> CREATE INITIAL PROCESSES 


BECAUSE THAT MACRO GENERATES A 
we ioe PAGES AND THE SWAPPER DOES 


SPACE. tHE SE EATE PROCESS CALL IS THE 


SCREPRC_S INPUT=TTODESC,= ; 


sci 


9 
E 
00080020 Oe 


FEF C 
E 


F9D4 60 
80000000 ' 9F C 
00000000 ' GF 


a 2 ss 2 2s 3 ts 


SN NNIPAAAAAAA AAO 


MEUM" OOONAULS "OOOO 


“SVINETIALLZATION ano stantu 'S-sepciope Sbigasts FENCES Macee,yO4n0o 


Pytst 0D Co"3 : 
ERROR! TODE ge 


MAGECIN 3 

Uicee "Ks 2) 

SISFL GsscP C$m_ NOACNT!PRCSM_ SSRWAIT>,= 
PqPacen NOAH PACER Senualt> 
#°x80020 
=(SP) 
P 
TTODESC 
(SP) 
(SP) 
InGDESC 
#2 a5 VSSCREPRC-P1SYSVECTORS**x80000000 

“LOOP ; JUMP OFF TO THE MAIN LOOP 


toot” 
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SWAPPER WORKING SET SWAPPER SEP=1984 AX/VMS Macro V04-00 Page SWAF 
Joe 086 SWAPPER = main LOOP a sets 8}: 13 i EOYs. SRCISWAPPER.MAR; 1 . (93) v04- 
8 , .SBTTL SWAPPER = MAIN LOOP 
B 1 i+ 
B } ; FUNCTIONAL uQESCRIPTION: 
B ; THE MAIN LOOP OF THE SWAPPER IS EXECUTED WHENEVER THE SWAPPER IS AWAKENED 
8 ; FOR ANY REASON. EACH OF THE FUNCTIONAL ROUTINES WILL CHECK TO SEE IF 
: ! : 3 THEY HAVE ANY ACTION TO PERFORM. 
1 e 
00 1 5 .PSECT SAEXENONPAGED y NON-PAGED PSECT 
2e 1088 LOOP:  &8SBB A 3 BALANCE FREE PAGE COUNT 
aad BSBW MMGSWRIMFYPAG : WRITE MODIFIED PAGES 
0008 BSBW W g + SCHEDULE SWAP 
00 ‘Cr D 109 TSTL WeEXE GL_PFATIM ; CHECK FOR POWER FAIL TIME 
6 1 C 109 BEQL : BRANCH IF NO POWERFAIL 
0000 9 Over 1 : 109 J$B ERESP ERAST 3 GIVE ANY REQUIRED POWER FAIL ASTS 
54 "CF p 14 «4 34 15$:  MOVL W*SCHSGL_CURPCB,R4 ; GET PROPER PCB ADDRESS 
2 0000'CF 7E 0019 109 MOVAQ w"scHsGd Hi HIBWO,R2 ; AND ADDRESS OF WAIT QUEUE HEADER 
IE 1 %6 SETIPL #IPL$_SYRCH BLO ock sy STEM EVENTS WHILE CHECKING 
05 24 Ad oc E4 7 BSC Ht _WAKEPEN, PCBSL_ srsing os ; TEST AND CLEAR WAKE PENDING 
FFbS" 0 8 $ 1099 BSBW SCHSWAITK ; WAIT WITH STACK CLEAN 
028 1 00 20$ SETIPL P 
pos 00 : 1101 BRB LOOP ; : CHECK FOR WORK TO DO 
1102 -DISABLE LSB 
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SWAPPER WORKING SET SWAPPER 16-SEP-1984 01:19: AX/VMS Macro V04-00 Page SWAP 
vrai BALANCE FREE PAGE COUNT iat 7 Bh: 18:88 SYS. SRCJSWAPPER.MAR; 1 . (it) v04- 
1 .SBTTL BALANCE FREE PAGE COUNT 
1 ++ 
i + FUNCTIONAL DESCRIPTION: 
109 ; BALANC WiLL ENSURE THAT THE FREE PAGE LIST HAS AT LEAST THE NUMBER OF 
1110 ; PAGES SPECIFIED BY THE PARAMETER FREELIM. IF NOT, PAGES WILL BE MADE 
111: AVAILABL BY EITHER WRITING MODIFIED PAGES OR OUTSWAPPING PROCESSES. 
11 ; IF SUFFICIENT FREE PAGES ARE AVAILABLE, THEN A CHECK IS MADE FOR 
W113 ; DELETED PROCESS HEADERS IN NEED OF CLEANUP. 
1115 ° 
1116 BALANCE: ALANCE FREE PAGE COUNT 
0000' CF 0000" CF D} 111 cHPL ysSGNSGL_ FREELIM, w*scusel FREEGNT ARE WE HERE DUE TO FREELIM? 
53 0000'CF 0000' CF t3 9 1118 SUBL3 W*SGNSGL_FREEGOAL, W*SCHSEL BRANCH JF Not ; SUFFICIENT FREE PAGES? 
4111 BLSS 208 ; NO, MUST ACQUIRE SOME 
0000' CF 83 43 1121 5$: TSTW W°SCH$GW_DELPHDCT CHECK FOR DELETED PROCESS HEADERS 
1 47 11 BEQL 108 ; EXIT 
d4 0049 11 CLRL oR 3 WNDIEATE NO FREE PAGES NEEDED 
1E 11 0048 1124 BRB 25$ ; 
05 O40 1 5 108: RSB ; IN BALANCE, RETURN 
17 OOOO'CF 00° € BE 11 § BBS S*#SCHSV_MPW,W*SCHSGB s1b,25$ MODIFIED PAGE WRITING ACTIVE 
50 O000'CF  O000'CF ; 054 1 é SUBL3 ye scHSGL_ MFYLOLIM, W*SCHSGL mFYCNE RO OW Ou MUCH WILL WRITING PAGES 
50 c0 OS 1130 ADDL  _R3,RO : : YIELO RELATIVE TO WHAT WE NEED? 
08 19 0061 1131 BLSS 2 NOT ENOUGH, MUS 
0000'CF  0000'CF v0 063 11 : MOVL  W*SCHSGL_MFYLOLIM, W*scHséL MFYLIM ; TRIGGER MODIFIED PAGE WRITING 
0 O6A 1 ; RSB ; AND EXIT'TO LET IT HAPPEN 
be8 1135 : MUST OUTSWAP, FIRST CHECK FOR SWAP IN PROGRESS SINCE SWAPPER IS 
068 11 $ ; NOT RE-ENTRANT. IF PURGING DELETED HEADERS, T THE THE ER OF 
68 1137: REQUIRED PAGES (IN R3) WILL BE SET TO ZERO. AN INFINITE INSWAP PRIORITY 
68 1 ’ : WILL BE ASSUMED WHILE BALANCING THE NUMBER FO FREE PAGES. 
DC 0000'CF 00" €2 a 1140 25$:  BBSS S*#SCHSV_SIP,W*SCHSGB_ SIP, 10s. EXIT IF SWAPPER ALREADY BUSY 
1 1141 SETIPL #IPL$ SYNCH x bys STEM EVENTS 
3FCO BF bt 0074 1148 PUSHR #* AERES R? R8,R9,R10,R11, ive ES SAVE NON-STANDARD REGISTERS 
000'CF 94 0078 114 CLRB weSuPscB_ {SwRI eT priority FOR SW WAP SCHEDULE 
D 53 00 O07C 1144 MOVL FP ; geT AN D TEST FREE PAGE DEFICIT 
08 18 OO7F 1145 BGEO : NONE, PURGING DELETED HEADERS 
0018'CF 8B 1 1146 TSTW ¥° SWPSGW_BALCNT : CHECK FOR SINGULAR BALANCE SET 
2 12 3 114 BNEQ 0$ : NO, CAN OUTSWAP 
D ps 1148 CLRL =séFP ; PREVENT OUTSWAP SCHEDULE 
008A 31 9 1149 30$: BRW OUTSWAP : TO FORCE AN OUTSWA 


04000 


52 


50 


0000' CF 


OF 0000" 4 00 


00 0000'CF O° 


0000 CF 


0' cf 


Bdopcr © 04 


OO1A' CF 


000 ; 
beet 
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WAP 


“SEP=19 
«SBTTL SCHEDULE SWAP 


4 SYS.SRCISWAPPER.MAR; 1 2) v04- 


{FUNCTIONAL DESCRIPTION: 
; SWAPSCHED IS CALLED BY THE MAIN LOOP OF THE SWAPPER PROCESS TO CHECK 
; ELIGIBLE INSWAP CANDIDATES AND TO PROVIDE MEMORY NEEDED FOR THEIR 
; INSWAP., A QUICK EXIT WILL BE TAKEN IF THE SWAPPER IS ALREADY BUSY. 
; NO OUTSWAP vibt BE NEEDED if THE NUMBER OF REQUIRED PAGES CAN BE 
: TAKEN FROM THE FREE PAGE LIST LEAVING AT LEAST FREELIM STILL FREE. 
; OTHERWISE OUTSWAP WILL BE ENTERED TO MAKE PAGES AVAILABLE BY ANY 
; ANS NECESSARY. 
QEMPTY: BUG_CHECK QUEUEMPTY,FATAL ; EMPTY QUEUE OR NOT A PCB 
SWAPSCHED: 


PL #IPL$ SYNC Be OCK SYSTEM EVENTS 
S*#SCASV SIP W*SCHSGB_SIP EXIT IF SWAP IN PROGRESS 
#0,#32,W"SCHSGL_COMOQS, R2i 3 FIND pugnesr PRIORITY QUEUE 
S*ASCHSV.SIP,U*SCHSG_SIP,5S CLEAR SWAP IN PROGRESS 


: AND RETURN 


w 
eo 
oe 


— 
So 
bod 


PUSHR #*M<R6,R7,R8,R9,R10,R11 hp FP> ; SAVE REGS OTHER THAN RO-RS5 
MOVAQ wesCHSa, COMOHER2].R3°: COMPUTE ADDRESS OF QUEUE HEADER 
M : GET PCB ADDRESS 


; THE FOLLOWING CHECK IS NEEDED DUE TO THE ODIOUS MISLEADING SYMPTOMS THAT 
: MIGHT OTHERWISE RESULT. 


CMPB #0YNSC_PCB,PCBSB shila IS THIS A GOOD PCB? 
BNEQ QEMPTY BUGCHECK IF NOT 


; per eerie THE SIZE OF THE INSWAP CANDIDATE [Nine INTO ACCOUNT THE FACT 
; THAT THE PROCESS HEADER MIGHT ALREADY BE RESIDENT 


MOVZWL PCBSW_PPGCNT(R4) ,RO ; COUNT OF PROCESS PAGES 
1? ia PCBS$W~GPGCNT(R4),R10 : COUNT OF GLOBAL PAGES 


RO,R1 SUM PAGE C 
BBC SPtESV PHDRES pcest | srscha) 158 3 CONTINUE | IF HEADER NON-RESIDENT 
ROVZWL ProSH RPTCNT(R4) ,R GET E PAGE 


BNA MEW 2S OOD NAME WIN 9 OO NAN E WIN  O OD NAME WIN 2 0 OONAUE UO OONAULS UMP 
oe Pete Se Ge Se ad oe Sete Ge Ge ee 


on ; get Act VRESIGENT HEADER PAGES FROM REQUIR 
SUBL3 W*SCHSGL_F “SCH CHS sett FREECNT RO COMPUTE PAGES AVAILABLE 
MOVB riosk Shri eed P$GB ISQPRI ; SAVE PRIORITY OF INSWA 
SUBL3 RO,FP WiLL PROCESS FIT? 
BLSS NO muir bt SWAP 
MOVW aAscuscu, SWPFAIL, WeSCHSGU_ SUBFENT RESET FAILURE COUNTER 
BRW INSWA 7"YES PERFORM gos 

; IF INSWAPPING A NON-REAL TIME PROCESS, THEN CHECK TO SEE IF ITs CURRENT 

; PRIORITY IS THE DEFAULT BACKGROUND PRIORITY. IF SO, THEN DELA LEAST 

+ SWAPRATE INTERVAL SINCE THE LAST INSUAPS THE EFFECT WILL BE 1D AVOIB FILLING 

: THE BALANCE SET WITH CRUNCHING PROCESSES IMMEDIATELY. 
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SWAPPER WORKING SET SWAPPER 16-SEP-1984 01:19:37 YAX/VMS Macro V04-00 Pa 
vO4~000 SCHEDULE SWAP SrSEb=1986 Ob:48:15 ESYSVSRCISUAPPER AR; 1 v 48, 
F4 1209 208: i SCHEDULE OUTSWAP 
OB AS 10 91 OOFE | CMPB #16, PCBSB_PRI (RA) is THis REAL TIME PROCESS? 
51 IF gg00"¢E FA 191 SUBS W°SYSSGB_DEFPRI,#31.R1 convent PRIORITY TO INTERNAL FORM 
in 1613 CMPB RRR : 1S THIS A CRUNCHER OR LOW PRIORITY JOB? 
51 0000000'EF DO 0105 1215 MOVL  § EXESGQ_SYSTIME.R1 ; GET CURRENT TIME IN APPROX. 10MS UNITS 
o000'CF 31 106 116 CMPL «RY W*SQPSGL_Swf IME ; HAS INTERVAL ELAPSED? 
A O11 121 BGTRU 408 ; BR IF YES 
oBcB 51 O11S 1618 BRY = SWAPEXIT ; CAN'T DO SWAP NOW 
116 1219 408: ; 
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1 t «SBTTL OUTSWAP 
1 1 1 e &§ SSS FF SSS SS SS GG SeG FSFE FSCS eeeeeeeeeeeeeeeeooesoeooeooooooonooosoanononooas 
116 1005 : 
i $ ; SCHEDULE AND PERFORM OUTSWAPS IF POSSIBLE 
116 1 § : FUNCTIONAL DESCRIPTION 
116 1030: THE OUTSWAP STRATEGY I$ TO FREE PROCESS HEADERS uf OR Qu sar PROCESSES 
116 1231: USE AVAILABLE MODIFIED PAGES ( FTER WRITING D FINALLY 
116 1232: RESORT OUTSWAP ANOTHER PROFESS. NLY ONE OF wee SE ACTIONS WILL Be TAKEN 
116 1233; AT A TIME THEN THE SCHEDULING $1 TATION WiLL BE REEVALUATED. THE VALUE 
116 1234: IN FP INDICATES THE SIZE OF THE PAGE DEFIC AND WILL BE SET POSITIVE IF 
116 5: ENTERED FROM BALANCE TO FREE DELETED PROCESS H ADERS- 
116 1 : > INPUT: FP = NEGATIVE VALUE WILL PERMIT PROCESS OUTSWAP 
116 1 8 : ZERO OR POSITIVE WILL PURGE HEADERS ONLY. 
18 1540 
116 1241 OUTSWAP: : TRY TO OUTSWAP 
58 OO000000'EF 01 C3 0116 1 4g SUBL3 #1,SGNSGL_BALSETCT.R8 =: INIT INDEX FOR BALANCE SLOT SCAN 
9 0 bg 11 124 MCOML = #0;R : INDICATE NO FREE LIST PURGE CANDIDATE 
0000'DF48 85 0127 1244 108:  TSTW  @WPHVSGL_REFCBASCR8] =: IS SLOT IN NEED OF CLEANU 
1 1 é 1245 BNEQ 12% : CONTINUE IF NOT RELEA CABLE. 
00D1 : 128 1 46 BRW 60$ + GO RELEASE PAGE TABLES AND HEADER 
54 0000°DF48 ¢ 128 1247 12$:  CVTWL @W*PHVSGL_PIXBASCR8],R4 : GET PROCESS INDEX 
OA 15 0131 1248 BLEQ : DELETED PROCESS OR VACANT SLOT 
54 0000'DF44 DO 0133 1249 MOVL aW*SCHSGL PEBVECERG], »R4 : GET PCB ADDRESS FOR PIX 
OF 24 a4 «EB 0139 1250 BLBS  PCBSL_STSTR4) : SKIP IF PROCESS IS RESIDENT 
OD 13 0130 1251 15$: BEQL $ t VACANT SLOT 
0000'cF 95 O13F 1 38 TSTB  W*EXESGQ_SYSTIME + ADD 1 IN 8 RANDOMNESS 10, DECISION 
04 13 0143 (125 BEQL 17S : BRANCH ON LOW PROBABILITY 
9 05 0145 1254 TSTL = RO : CHECK FOR REMEMBERED INDEX 
03 18 0147 1255 BGEG 208 + YES DONT OVERWRITE 
59 pd 0149 1 36 17$:  MOVL  R8,R9 $ SAVE BALANCE SLOT NUMBER OF CANDIDATE 
o2 58 F4 O14C 1257 208 SOBGEQ R °10$ > TRY ALL St 
0001' CF 3 14F 1258 TSTB yreXESGO_ SYSTIME+1 + ADD 1 IN 256 RANDOMNESS TO DECISION 
5 13 01 3 1259 BEQL : BRANCH ON VERY LOW 
58 59 v0 0155 1260 MOVL a RB : GET AND TEST SLOT INDEX FOR SECONDARY CAND 
11 18 0158 1261 BGEG 40. - 24 : BR IF SLOT FOR CLEANU 
5D 3DS5 «(O1SA 1 6¢ 21$: STL FP + CHECK FOR HEADER PURGE 
07 «1B c 63 BGEQ 228 : EXIT IF SO 
15— 1 65 $ SINCE THERE WAS NO HEADER TO FREE, WE MUST NOW WRITE MODIFIED PAGES OR QUT SWAP 
15— 1 6 ; SOME PROCESS. ONLY IF MODIFIED PAGES (MFYCNT-LOLIM) WILL TOTALLY SATISFY OU 
15€ 1267 ; NEEDS WILL THEY BE WRITTEN. OTHERWISE THE LEAST USEFUL (BY SOME OPINION) PROCESS 
f 68 : WILL BE OUTSWAPPED AND THE SITUATION RECONSIDERED. 
FE9F* 30 01 é 1 § , BSBW  SCHSOSWPSCHED : SCHEDULE OUTSWAP 
4 6 161 107 TSTL «OR + ANY CANDIDATE? 
; 163 1 te BNEQ 23% > YES 
08 ; 165 127 338: BRW SUAPEXIT : ELSE EXIT AND TRY LATER 
9%, 31 oh $: BRW + GO DO OUTSWAP 
168 1 ds : A HEADER SLOT IN NEED OF CLEANUP WAS FOUND, NOW SCAN THE FREELIST FOR ALL 
168 1277 : PAGES WHOSE PTE BACK POINTERS PLACE THEM WITHIN THIS HEADER. DELETE THE 
168 1278 : CONTENT OF THOSE PAGES VIA MMGSDELCONPFN TO FINALLY REDUCE THE REFERENCE 


N 4 
voto ‘sorgute SF" Stare TSCREESASES QULLESTS WSTANMECHBGapeeRSR,, Pe B,| |B 


: 79 ; COUNT BINDING THE HEADER. 
57 0000'CF 93 2 168 1281 24$: ROTL #2." SWPSGL_BSLOTSZ,R7 ; GET SIZE OF BALANCE SLOT IN BYTES 
6 : 171 1 MULL3_ R7_RBLR : COMPUTE OFFSET TO BASE OF SLOT 
00 "DFLG F 0175 1 PUSHAB @W*SWPSGL_BALSPTC(R6] § : ADD BASE TO GET ADDRESS 
52 0 C O17A 1284 ROTL #7, R6_R t FORM OFFSET TO PHD BASE 
00 "DFG F O17E 1285 PUSHAB § PSGL_BALBASECR2] + BASE ADDRESS FOR PHD 
51 0 c 0183 1 6 ROTL &#7,R7,R : MUL SPT SLOT SIZE BY 128 
4 BE4?7 3 1 1 PUSHAB a4 (SPs ERT) ; FORM HIGH LIMIT FOR PAGTBLPPTE 
4 BE41 9F 8 : PUSHAB @4(SP)ER1 : ANS SAVE PTE HIGH LIMIT 
18F 1290; 
f ; AT THIS POINT: 
18F 1293 : O(SP) = HIGH LIMIT ADDRESS FOR PROCESS HEADER 
18F 129% ; 4(SP) = HIGH LIMIT FOR PROCESS PAGE TABLE PTE 
18F 1295 ; (SP) = LOW LIMIT FOR PROCESS HEAD 
F 36 : 12(SP) = LOW LIMIT FOR PROCESS PAGE TABLE PTE 
18F 1 38 ASSUME PFNSC_FREPAGLST E00 ; 
18F 129 ASSUME PFNSC"MFYPAGLST EQ 1: 
18F 1 00 ASSUME PFNSC"BADPAGLST EQ 2 : 
57 4 18F 1301 CLRL ORR + ASSUME ONLY FREELIST SCAN 
0000'DF48 BS 0191 1 0¢ TSTW § @W*PHVSGL_PIXBASCR8] =; IS THIS A DELETED PROCESS HEADER? 
03 18 196 130 BGEQ : BR IF NOT. ONLY SCAN FREELIST 
57 02 dO 0198 1 04 MOVL §§ #PFNSC_BADPAGLST,R7 t INITIALIZE LOOP SCAN TO BADPAGLST 
50 0000'CF4 00 0198 1305 25$: MOVL WSPFNSAL_HEADCR73,RO |; GET HEAD OF LIST TO START SCAN 
=) O1Ag i 8 30$ — Pre REFERENCE Ae Mapas Meaty 
1A3 1308 MOVZWL <a@W*PFNSAx_FLINKCROJ,R9>,- ; GET FORWARD LINK 
131309 LONG OPCODE=MOVL,- 
1431310 IMAGE=SYS_NONPAGED 
53. 0000'DF40 pO O1A9 1311 MOVL  a@W°PFNSAL“PTECROJ,R3 §; GET SVA OF PTE FOR PAGE 
1AF 1 1 ASSUME PFNSC_PPGTBL EQ 4 
1AF 131 ASSUME PENSC"GPGTBL EQ 5 
51 0000'DF40 01 02 EF O1AF 1314 EXTZV  #2,#1,@W*PFNSAB_TYPECROJ,R1 : GET PAGE TABLE BIT 
08 AE41 > D1 187 13 CHPL R go(SPocR1] ; COMPARE with LOW LIMIT 
6E41 if D1 O1BE 1 19 CMPL = R3, (SP)CR1) + COMPARE WITH HIGH LIMIT 
18 3 1c2 1 18 BGEQU 40$ : OUT OF RANGE 
0c 57 £9 O1C4 131 BLBC = R7, 35 : BR IF FREE OR BAD LIST 
52 00000000'FF40 D0 17 1320 MOVL  a@PFNSAL BAKCRO) R2 : GET BACKING STORE ADDRESS 
9 1g EO O1CF 1321 BBS #PTESV_TYPO,R2,40$ + LEAVE MODIFIED SECTION PAGES 
D3 1 ; 35$ MOVL R7,R : SET LIST ER FOR DELETE 
FE27° 106 1 BSBU MMGSREMPEN t REMOVE PAGE FROM FREE LIST 
0 23 1D9 1324 BSBW SRR LDELPAGE : RELEASE PAGE DELETING CONTENT 
50 DO 01DC 1325 40s MOVL R9-R + FLINK TO NEXT PAGE 
ce 12 ODF 1 é BNE : ANOTHER PAGE TO TRY 
87 F4 O1E1 1327 45$ SOBGEQ R7,25$ : NEXT LIST 
5 19 cO 0184 1 ; ADDL #16,SP + CLEAN STACK OF LIMITS 
0000'DF4 é 167 1 TSTW  @W°PHVSGL_REFCBASCR8] =: DID WE FREE PROCESS HEADER 
OE TEC BEQL 60% : YES, RELEASE IT 
TEE ; THERE ARE TWO REASONS THAT MIGHT PREVENT THE HEADER FROM BEING RELEASED BY 
1EE 1334: . SOME OF THE TRANSITION PAGES ARE ON THE MODIFED LIST. 
iff 1335 : }- THERE IS 50 IN PROGRESS ON THE TRANSITION PAGES. 


WORKING SET SWAPPER 
OUT SWAP 


— 2 td BOOOOO NTT N-H-H-H Hn HMMM 
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OSDISPATCH: 


a ee a a a a ee ee ee ee a ee a a 
WO WO09090909 09 09 09 C9 OD OD SI INN NSD DDD DDD DD De TUT BS BB BB EE PN 


ROOD NIA NE WIN SO OD NIA MNES WIN 2 SO OOD NA NE WW 9 OD NIA NEW OOOVNOAOUE 
Sete Ge «= @eGe 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


"SOSERTORG QLBETS USHUSRHRGABAERSARR. 1 P B,| | AB 


NCE WE CANT REALLY TELL) THE MODIFIED LIST MUST 
THIS IS ACTUALLY ourte RAR agras 


R THE FORMER CASE (S 
LLY FLUSHED. HOWEVE 
YL 

YL 


= £S 


I 
R 
0 
I 


LRL W*SCHSGL_MFYLOLIM ; FORCE ENTIRE MODIFY LIST TO BE WRITTEN 
cLRU W*SCHSGL_MFYLIM 3 AR PART OF HI LIMIT, NOT PART THAT 
; INDICATES MODIFIED WRITING IN PROGRESS 
MCOML #0,R9 ; NO, TRY FOR ANOTHER 
BRW ; NOW ATTEMPT CLEANUP 
BRW RELPHD ; GO RELEASE PROCESS HEADER 


R4 = PCB OF OUTSWAP CANDIDATE, ALREADY MARKED NON-RESIDENT 


MOVL PCBSL_PHD(R4) ,R5 3 GET PROCESS HEADER ADDRESS 

DECW it ae -BALCNT ; DECREASE NUMBER IN BALANCE SET 
BSBW peagit : INIT REGISTERS FOR SCA 

CLRW PCBSW_APTCNT(R4) 3 INITIALIZE ACTIVE oe TABLE COUNT 
MOVZWL PHDSW"WSLIST(RS),R7 ; WS INDEX FOR PERM PAGES 

MOVZWL PHDSW- “USLASTIRS): 2R6 ; END OF WORKING SET LIST 


REGISTER CONVENTIONS FOR OWSLOOP ARE: 


RO = PFN 

Ri = SCRATCH, WSLX 

Re - WORKING SET LIST ENTRY (VIRTUAL prens Seer Laas: 
R35 = SVA OF PTE FOR WORKING SET LIST ENT 
R4 = PCB ADDRESS 

R5 = PHD ADDRESS 

Rg - END INDEX TO WORKING SET LIST 

R? = WSLX (WORKING SET LIST INDEX) 

R8& = PTE roa’ ENT 

R9 = WORKING POINTER TO tte MAP 
R10 = PTESM VALID!PTESC ERK 

R11 = BASE ADDRESS OF SOPSAL MAP 


OUTSWAP WS LOOP 
4} WORKING SET LIST ENTRY 
KIP_IF NOT 


“MOVL (R5DER7I, R2 
BLBC VAL 
CONVERT VA TO SVA OF PTE 


R2,NOTVALID 
BSBW RAGS SVAPTECHK 


R3 <= SVA OF PTE FOR VA IN R2 


MOVL (R3), R8 : GET CONTENT OF PTE 

BLSS 108 CONTINUE if VAL 1D PAGE 

BICB #*C<WSLS$M_VALID!WSLSM oad tb tHE PENLOCE R2; ISOLATE INTERESTING 
EXTZ2V #PTESV PER, #PTESS_PFN7RB,RO GET PFN FROM PTE 

BSBB OSDISPATC :"DISPATEH ON PAGE TYPE 

AOBLEQ R OWSLOOP + PROCESS ENTIRE WORKING SET LIST 

BR Beee ba + DONE WITH WORKING SET LIST, RESET HEADER 
ASSUME WSLSV_VALID €0 0 : 

ASSUME WSLSV“PAGTYP EQ 

ASSUME yet VIPFNLOCK EQ 4 


yecueibhemetsignatnattetaiiiihsbemmmmenrenindepeisidentin co 


ts 


ODEN S NUM OOWOOLS &f£wOWDIOIOoIwawIwow 


oO ouW-Doorow-9 
SIN NAAAQSMMIUIUIUIUTUI 


OOO Fr ]-MNOOM UO 


C 


g7$EP | 
1393 ASSUME PFN C PROCES Q 
4 ASSUME PEN cusvst Mm £Q 
ASSUME PFN GLOBAL Q 
: SSUME PFNSC-GBLWRT £0 
1 ASSUME PFNSC"PPGTBL £0 4 
1 : ASSUME PFN GPCTBL EQ 
139 MOVAL (RS)CR7J,FP 
14 CASE R2,<= 
14 PROCTRANS, = 
14 PROCVALID,= 
14 WSLERR, = 
14 4 WSLERR. « 
4 GBLTRANS,= 
14 6 GBLVALID,= 
14 GBLWRT TRANS, = 
14 8 GBLWRTVALID- 
14 PPGTBLTRANS, = 
1410 PPGTBLVALID.= 
141 >, TYPE=B 
1218 _ 
1414 SPACEFAIL: 
1615 BUG_CHECK INSSWPFIL,FATAL 
1419 PROCWRT: 
1618 MOVL  PCBSL_WSSWP(R4),R2 
141 L SPACEFAIL 
1420 MOVZWL PCBSW APTCNT(R4) ,RO 
1421 OVL R4,W*OSWPPCB 
14 ; SUBL RI 
14 ROTL #<33-2>,R9,R4 
1426 CMPW RG Pubs SWAPSIZE(RS) 
1425 BGTRU SPACEFAI 
14 : MOVW Re 4 WU OSUPPGS 
14 MOVL 
1428 ADDL RO ite 


SYS SRCISUAPPE R.MAR;1 


5 
omer SET SWAPPER 1 = 360-1382 tae Se yanives Macro v04-00 Page if) 
s 


OMPUTE ADDRESS OF WSL ENTR 


WITCH ON WSL PAGE TYPE } PTE VALID BIT 
=> AGE 


sed Ft erage > Bi 
PROCESS VALID PAGE 


OBAL V 
=> GLOBAL rt A og TRANSITION 
=> GLOBAL WRITABLE VAL 
=> PROCESS PAGE TABLE TRANSITION 
=> PROCESS PAGE TABLE VALIC 


SKIP PFN LOCK PAGES 


WONOUNLS WN - OND 
nun 
vvv 
~_ 23 
~_ 
~_ 
v8 
@o 
Cc 
a 
o 
= 
m 
oO 
x 


INSUFFICIENT SWAP FILE SPACE 
RESET i isekese BASE REGISTERS 


ANCH IF NO VBN AVAILABLE TO USE 
T OF ACTIVE PAGE TABLES 


GET C 
; SAVE ADDRESS OF abbeys PROCESS 
C TE sat gi OF PAGES * 4 


SAVE COUNT OF 
SVAPTE FOR OUTSWAP_ 1/0 
SKIP HEADER AND ACTIVE PAGE TABLES 


SWAl 
V04: 


dD 5 
04-000 OUTSWAB | NNER "SSEb=198e OBES ESEYSRCHSGABeER sane: «=| 78% Hd, 


INCL ¥" SUPSGL_OSUPCNT 
BSBW 439s SWPWRIT 
BLBS 

BUG_CHECK OUTSWPERR, FATAL 


; ACCOUNT FOR OUTSWAP 

; WRITE HEADER AND BODY 

; CONTINUE IF NO 1/0 ERROR 
; **e* OUT SWAP 1/0 ERROR 


NO 
. 
a 
' 
a 
4 
t 
5 
a 
t 
L 
e 
a 
i 
a 
a 
‘ 
a 
y 
i} 
a 
a 
o 
a 
o) 
o 
a 
4 
a 
v 
v 
0 
v 
t 
a 
4 
a 
t 
a 
Q 
t 
t 
t 
i 
t 
4 
t 
t 
a 
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14 
14 
14 
14 
14 
14 
14 
14 
14 
144 
144 
144 20S: 
o7c7 3 144 BSBW : INIT REGISTERS FOR RELEASE LOOP 
55 6¢ AG 00 ee: MOVL sat tee RS + GET POINTER TO PHD . 
42 a5 3C 1446 MOVZ¥L PHOS PL PHVINDER(RS) R8 ; GET PROCESS HEADER SL oT INDEX 
50 89 3A cB 1447 30$: —BICL R GET PAGE NUMBER TO RELEA 
02 0000'DF4 F 1448 CMPZV #PENSV *PAGTYP, APENSS Pact ye aw*PFNSAB_TYPE RO APFN C_GLOBAL ss; 
a 144 BEQL 808 ; PAGE IS GLOBAL, COMPLEX CLEANUP 
56 9000 DF40 oD 1450 MOVL a@W*PFNSAL_PTECRO],R6 GET POINTER TO PAGE TABLE FOR PAGE 
66 84000000 BF CA 1451 BICL  #<PTESM ig a nooitys: (R6); CLEAR VALID AND MODIFY 
0000"DF 49 a 14 : TSTW  @W*PFNSAW SWPVBNCROJ § 1/0 IN PROGRESS? 
14 BEQL 408 DONT MARK PA MODIFIED 
0000'DF40 80 BF 8 1454 BIS8 #PFNSM_MODIFY ay*PFNSAB_ i Mec } ; MARK PAGE MODIFIED 
03 0 ED 02C1 1455 CMPZV #PFNSVLOC,#PEN NSS Loc IF THIS WAS READ IN PROGRESS 
04 00 O*DF4O 1 c 1456 sit ay PFNSAB. STATELRO abe nic _RDERR ; AND IS NOW PAGE READ ERROR 
CB 145 DECREF : AND IF THIS IS THE LAST REFERENCE 
12 oS 1485 NE 60$ ; 
52 A 02D? 146 MOVZBL #PFNSC_BADPAGLST,R2 t THEN DIVERT THE PAGE TO 
FD23' : DA 16 BSB NNGSINSP NSPFNT : THE BAD PAGE LIST 
DF 1463 40$: DECREF $ DECREMENT REFERENCE COUNT FOR PAGE 
05 12 £9 1464 BNEQ 55$ + NOT RELEAS YET 
FD12" ; EB 1465 5SO0$: ##BSBW #§MMGSRELPFN : RELEASE PFN AS APPROPRIATE 
1 1 O2€ 1466 BRB 60$ vi GO FOR NEXT PA GE 
07 0000'DF40 03 00 ED O2FO 1467 55S:  CMPZV #PFNSV_LOC,#PFNSS_LOC,aW*PFNSAB STATECROJ,- ; 
F 1468 #PENSC"ACTIVE ; IS STATE ACTIVE? 
8 1 F 146 BNEQ 608 ; NO, THEN LEAVE UNCHANGED 
F FA 1470 INSV #PENSC_ RELPEND,- j MAKE STATE Be RELEAS 4 PENDING 
0000'DF40 03 Q FC (1471 apr Nsy LOC, #PFNSS_LOC,@W*PFNSAB_STATELROJ; IF SOME 0 OUTSTANDING 
93 5 1678 60$:  SOBGTR ; NEXT PAGE IN LIST 
000 31 147 BRW RELP HD + RELEASE PROCESS HEADER IF POSSIBLE 
147% 80$:  DECSHR GTR=60$,- + DECREASE SHARE COUNT FOR PAGE 
147 TRAGE.FCAG=SYS,NONPAGED 
C9 «611 «0314 «1476 BRB 0$ ; RELEASE PAGE TO FREE LIST IF REFCNT=0 


SWAPPER yt SWAPPER .% uo p= 1382 tee EL ee Macro Vv04-00 Page Ate 


v04 ELEASE PROCESS HEADER SEP=1 SYS. SRCJSWAPPER.MAR; 1 
.SBTTL RELPHD = RELEASE PROCESS HEADER 
++ 
FUNCTIONAL DESCRIPTION: 
RELPHD CHECKS THE REFERENCE COUNT ON THE PROCESS HEADER 
4 AND RELEASES THE PAGE TABLES FROM THE PROCESS HEADER WHEN ALL 
OF THEIR PAGES HAVE BEEN RELEASED. THE PAGE TABLES ARE FIRST WRITTEN 
TO THE SWAP IMAGE IF THEY ARE MARKED AS UPDATED. 


CALLING SEQUENCE: 
BRW/JMP RELPHD 


INPUT PARAMETERS: 


16 16 
16 14 
16 14 
16 14 
16 14 
16 14 
16 14 
16 14 
16 146 
16 14 
Bi 
16 14 
169 RB = BALANCE SLOT INDEX FOR HEADER TO BE RELEASED 
16 1494 : OUTPUT PARAMTERS: 
158 RO-R7,R9,R10 VOLATILE 
16 1497 : SIDE EFFECTS: 
i 1498 THE PAGE TABLES FROM THE PROCESS HEADER MAY BE WRITTEN TO THE 
16 149 SWAP IMAGE FOR THE PROCESS IF THEY HAVE BEEN UPDATED. 
18 1801 i= 
Hey 
16 1504 RELPHD: ; 
0000'DF 48 B 16 1505 TST @W*PHVSGL_REFCBASCR8] =: SEE IF PROCESS HEADER IS RELEASABLE 
03 1 18 1 6 BEQL «=sOS$S : YES, FREE ACTIVE PAGE TABLES 
oe 3 1D 1 BRW OSWPEXIT + NO, TRY LATER 
7 OO'CR 0D Q 1508 5$: MOVL. W*SWPSGL_BSLOTSZ,R7 : SEf ITERATION COUNT TO WHOLE BALANCE SLOT 
1 C 1509 MULL3 iR8,R : GET LONG WORD OFFSET TO SLOT 
56 0000'°DF41 91 10 MOVAL a@W*SWPSGL_BALSPTCRIJ.R6 ; POINT TO BASE OF THIS SLOT 
F 151 BSBW : INIT REGISTERS FOR SCAN 
54 0000'°DF4 : 1 1 CVTWL Oy PHVSGL_PIXBASCRBI RA : GET INDEX TO PROCESS IN SLOT 
151 BLSS $ : BR IF DELETED PROCESS 
54 0000'DF44 0D A 1514 MOVL §§ @W*SCHSGL_PCBVECCR4],R4 : AND TRANSLATE TO PCB ADDRESS 
55 6C AG OD 40 1515 MOVL  PCB$L_PHDTR4),R > GET PROCESS HEADER ADDRESS 
6C AG é D a4 1 MOVL  R8,PCBSL_PHD(R4) : INDICATE NO PHD FOR PROCESS 
C C5 C 48 151 SUBL *PHDS$L~POBR(R5) + UNBIAS MEMORY MANAGEMENT BASE REGISTERS 
pO ¢ Be - 4D 1 18 SUBL R5.PHDSL~PIBR(R5) : FOR BOTH PO AND P1 SPACE 
00 24 Aé 12 E 151 BBCC «=O sw PC BSV PADRES PCBSL_STS(R4),7$ ; MARK PHD NON-RE 
¢ 48 D 1 p 7$: MOVL PHOS BSLXcR § AP : GET POINTER TO WSLX SAVE AREA 
C 654C ~~ B 1 MOVAL (RS5)CAP).AP $ AND CONVERT TO BYTE ADDRESS 
5p 4405 D ¢ VL PHOS BAK(RS) FP t GET POINTER TO BACKING STORE VECTOR 
D 6540 DE 036 MOVAL (RS)CFPI,FP : AND CONVERT TO BYTE ADDRESS 
900 B4 0367 1524 CLRW PHDSW_EMPTPG(RS) + CLEAR COUNT OF EMPTY WSL PAGES 
D 6 06 68 5 10S: ROVE (R6) +, (FP)s ; COPY ENTRY. FROM SPT 
04 12 ? 1 § BNEQ 118 : BR IF NOT EMPTY WSL PAGE 
0008 (5s iB 1 INCW  PHDSW_EMPTPG(RS) + COUNT EMPTY WSL PA 
FC AG OD 76 1529 118 CLRL 30s = 4 (ROT : ZAP INVALID ENTRY TO NO-ACCESS 
c £9 CUR cap+ : AND CLEAR WSLX VALUE FOR PAGE 
0084 7D 1 128: BRW DELPHD : FINISH DELETE FOR PROCESS 
50 FC AD 15 00 F ; 15$: xI2V #PTESV_PFN.#PTESS_PFN,-GUFP) RO ; GET PEN FOR He ENTRY 
FC AD 16 00 0000"pF 6 F 1535 INSV  @W*PFNSAL_BAKCRO],#PTESV_PGFLVB,APTESS_PGFLVB,-4(FP) | ; SAVE BACKU 


F 5 
04-000 RELPHD ~ RELEASE PROCESS HEADER "SSEP=15E OSLR:TS USVSVSRCHGABRER cme: «=| P88" GH, 


1 1 PEN REF RENCE 
11 MOV aW"PFNSAx W LxCRO3, (AP)+>,- — ; AND WORKING SET LIST INDEX 
ts. CONG OPCODE=CV 
} 1 MAGESSYS SneeS 
of 5 C 1 BISL3 RO,R10,(R9)¢ ; SET INTO SWAPPER MA 
FC AD F E 154 BBSS rr ie “VALID, -4(FP),20$ ; MARK PAGE VALID Fo FOR R INSWAP PURPOSES 
sore Be C3 BRAS 78cg “OS! | SORETR z $CAN Entia ER OF PAGES + 4 
52, 20 AS «=O «O3AG 1544 HOV wie WSSUP(R4) ,R2 ; WORKING SET SWAP SLOT 
oss fe be Bear face ROT ye t DIVIDE COUNT Bred tee CME 
2 ee es em eg kee 
000' CF p BB INCL "sup Pec. HOSWPCNT ; ACCOUNT FOR NEADER Ae swap 
gc 7:4 p BSBW ; WRITE ACTIVE PAGE T 
04 7 C2 1 BLBS 30 ; CONTINUE IF NO ERROR 
cs 1 j BUG CHECK ‘aS erene, FATAL j eee ACTIVE PAGE TABLE SWAP 1/0 ERROR 
0688 3 C9 1553 308: esed = R : INIT REGISTERS FOR RELEASE L 
58 6C AG OD ce ¢ 4 MOVL PCosL L PHD (RA), RB ; RESTORE BALANCE SLOT x 
9 SA C 06 1555 40$:  BICL3 iR + ISOLATE PAGE FR 
56 O'DF40 OD D4 1 é MOVL RUTBENSAL’ PTECRO],R6 =; GET PTE ADDRESS 
66 30 D cA 1 MOVL RO, (R + MAKE PTE CORRECT BUT INVALID 
0000'DF 40 : : 38 DeCW W*PFNSAW_REFCNTCRO] =; DROP REFERENCE COUNT 
= + 60 one BUG CHECK APTREFHIGH, FATAL F INCONSISTENT PAGE TABLE REFERENCE COUNT 
0688 5 EB 6¢ ; BBW RELDELPAGE ; RELEASE PAGE THROUGH DELCONPFN 
DD "A F FO 1564 SOBGTR R7,40$ + CONTINUE FOR ALL ACTIVE of Ase TABLES 
0000"DF 48. A F3 1565 MNE GW #1 ,au"PHVSGL REE CBASCREI ; MARK BALANCE SLOT AVAIL 
B ro 1 66 CLRW PHVS$GL ¢ AND Sef PIX TO NUL 
FE 136 CLRL PeBSL VPRD TRA) ; AND SEVER CONNECTION WITH PROCESS 
5 1368 OSWPEXIT: ; OUTSWAP COMPLETE 
01 1570 BRW SWAPRETRY + RETRY SWAP SCH 


EDULE AFTER OUTSWAP 
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WORKING SET SWAPPER 16-S 4 AX/VMS Macro v04-00 Pa 
DELPHD = DELETE PROCESS HEADER FOR DELET g- ast 8}: if i SYS. SRCJSWAPPER.MAR; 1 - it) 
H ~SBTTL DELPHD = DELETE PROCESS HEADER FOR DELETED PROCESS 
gi: FUNCTIONA DESCR PTION: 
; DEL HD IS ENTERED BY RELPHD IF THE PROCESS INDEX ASSOCIATED WITH 
1 § ; HE BALANCE SLO N GATIVE INDI ATING THE PROCESS HAS BEEN DELETED. 
1579 ; NOW THAT THE REFERENCE COUNT FOR THE H ADER IS ZERO, ALL PAGES AND 
1 9 ; BACKING ApTORE PA A s CAN BE RELEASED PERMITTING LEASE OF THE BALANCE 
1581 ; LOT. THIS P THE SPT ENTRIES VALID WITH A PFN, DEMAND ZERO 
: ; oR BACKING STORE ADDRES FORM. THERE ARE NO REMAINING TRANSITION PAGES. 
1 4 + INPUT PARAMETERS; 
1 ; ODUCT OF SGNSC_BSLOTSZ * BALANCE SLOT_INDEX 
1 $ ; R6 = ADDRESS OF FIRST SPT ENTRY FOR THIS BALANCE SLOT 
1 ; R7 = SGNSC psors 
1 $ ; R8 = BALANCE SLOT_INDEX 
1589 : R10= MASK OF “PTESA_VALID!PTESM_MODIFY!PTESC_ERKW 
1899 | 
1592 DELPHD : 
9 159 ROTL 4#9,R1 : COMPUTE OFFSET TO PHD FROM BASE 
§ 1594 ADDL =: w*SwP$GL BASE.R RS + FORM PHD ADDRESS 
A 1595 MOVZBL PHDSB “PAGFIL( R11 ss: ~-GET PAGING FILE NUMBER 
D 1 96 10$:  MOVL  (R6)¢ : GET PTE FROM SPT 
1 159 BEQL : BR IF EMPTY 
19 1 98 BLSS 208 : BR IF VALID 
E0 159 BBS aie : BR IF TYPE 1 (BACKING STORE) 
cA 1600 208 BICL + ISOLATE PFN 
; 1601 BEQL ; SKIP DEMAND ZERO PTE 
16 : MOVL  aW*PFNSAL_BAKCR GET BACKUP ADDRESS 
1 BICB #<<PTESM QALID! 87683 noni Y>a- 4>,-1(R6) ; CLEAR VALID AND MODIFY 
0 1604 BSBw OCR LDEL PAGE ; RELEASE 'P 
D 16 5 MOVL GET BACKUP ADDRESS 
Ff 16 6 25$: EXtZv ie PGFLVB, #PTESS -PorLVB.RO,R ; GET PAG FIL VB 
09 16 8 MOVL R11 : SET PAGING FILE NUMBER FOR RELEASE 
16 BSBW ANGEDAL CPAGF IL ; DEALLOCATE PAGING FILE PAGE 
D4 1 308: CLRL  =4(R : ZAP SPT EN 
FS 1611 40$:  SOBGTR R7,1 ; ; RELEASE ENTIRE HEADER 
161 INVALID ; INVALIDATE HEADER 
AE 161 MNE GW #1 ,QU"PHVSGL roasthes T EMPTY 
B4 1614 CLAW ay PHVSGL_P POINT OWNER PIX AT NULL PROCESS 
? 1615 DECW “SCHSGM vet + ACCOUNT FOR DELETED HEAD 
1 1616 BRW SuAP RETR + AND RETRY SWAP ATTEMP 


H 
SWAPPER WORK SWAPPER 16-SEP- AX/VMS Macro V04-00 P 
viva ti GBLT LVALID/GBLWRTVALID = HANDLE G 'ScSEP=19RG BoiaaitS Lene VeecHEGre yes. 00. ae iB, 
~SBTTL GBLTRANS/GBLVALID/GBLWRTVALID = HANDLE GLOBAL PAGES 
1602 : GBLTRANS HANDLES ar 8h F yA SkOBAL PAG IN TRANSITION, 
1603 ; WH CH InPLiEs Hal H HAS BEEN FAUL ED BUT IS NOT YET 
1 ¢ 3 RES 1DENT HE WO LIST ENTRY FOR HIS fant WILL BE 
: DELETED AND THE st: wiht HAVE TO BE FAULTED A 
188 BLUR t TUMETTION SOS EME cou onc 
50 15 00 0000'DF4O FO INSV  @W*MMGSGL_GPTBASECROD, wptesvr _PFN,APTESS_PFN,RO ; GET GLOBAL PFN FRO 
1 : .ENABL LSB 
1633 GBLDROP: ; DROP GLOBAL PAGE FROM WORKING SET 
51 57 D0 1634 MOVL  R7,R1 + GET WSL INDEX FOR RELEASE 
3 pp 1635 PUSHL : SAVE SVAPTE FOR FOLLOWING DECPTREF 
FB96" 1 : BSBW WNGSDELUSLEX + DELETE WSL GIVEN INDE 
Q BA 16 POPR #*M<R3> : RESTORE SVAPTE 
FB91' 30 16 : BSBW = MMGSDECPTREF + AND DROP PAGE TABLE REFERENCE 
16 DECSHR GTR=10$,- : DECREASE SHARE COUNT 
1640 IMAGE_FLAG=SYS_NONPAGED 
1641 PROCDROP: 
1648 DECREF GTR=20$ ; AND REF COUNT IF LAST SHARER 
FB76" 30 1648 as BSBW = MMGSRELPFN + RELEASE PAGE IF LAST REFERENCE 
05 1645 RB j RETURN FOR NEXT PAGE 
07 0000'DF4O 03 00 €D 1648 20$:  CMPZV #PFNSV_LOC, #PFNSS_LOC, @W*PFNSAB_STATELROJ,- 
164 #PFNSC_ACTIVE : CHECK"FOR ACTIVE STATE 
12 1668 BNEQ £08 : NO THEN LEAVE Srare UNCHANGED 
F 164 INSV  #PFNSC_RELP i SEf STATE if RELEASE PENDING IF 
0000'DF40 03 = 00 i 1650 te we #PFNSV"LOC, EPPS _LOC,a@w*PFNSAB_STATELRO) ; 1/0 OUTSTANDING 
1688 : .DSABL LSB ; 
ne 
16 5: GBLVALID HANDLES A VALID, NON-WRITABLE, PAGE. 
16 § GBLVALID: ; VALID GLOBAL PAGE 
1836 : IF THE GLOBAL PAGE IS BEING ACTIVELY SHARED THEN IT WILL BE DROPPED 
60 ; FROM THE WORKING SET AND REFAULTED LATER (PRESUMABLY WITHOUT 1/0). 
08 6D 05 += «£0 6¢ : BBS SuSLSY USLOCE. (FP) .10$ ; DON'T DROP PAGES LOCKED IN WORKING SET 
1664 cMPW Ot tC<#*1 Zeu“PENSAx SHRCNTCRO)>,- ; IS THERE ACTIVE SHARING OF THIS PA 
1665 tong porto E=CAPL,- 
16 6 SOE ONPAGED 
25 12 16 BNEQ cates : YES, DROP IT AND REFAULT LATER 
1 § ; OTHERWISE THE PAGE WILL BE WRITTEN TO THE SWAP IMAGE SINCE IT IS 
20 UNLIKELY TO BE RESIDENT UPON INSWAP. 
89 SA 50 69 1672 10$:  BISL3 RO,R10,(R9)+ ; SET IN SWAPPER MAP FOR OUT SWAP 
FB4F* 30 167 BSBW «=: MMGSDECPTREF i pROP PAGE TABLE REFERENCE FOR PAGE 
1 oh GBLRESET: RES SET stave PTE TO GPTX FORMAT 
51 0000'DF4O O000'CF C3 167 SUBL3  W*MMGSGL_GPTBASE, evrermale” PTECR ; GET GPTX FOR PAGE 


1 5 
SWAPPER WORKING SET SWAPPER 16-SEP-1984 01:19: AX/VMS Macro v04-00 Pa SWAl 
50-050 GBLTRANS/GBLVALID/GBLWRTVALID - ty 6 g-36F ~}382 8) HEL SYS. SRCJSWAPPER.MAR; 1 ” if, v04 
51 51 16 9C O4BA 1 TL #<32- Riel ; AND CONVERT TO CORRECT SCALE 
oss a he ae Pe te 
52. 63 aes rer af Eg C 10$ BICL3 : OOTAIN AS PERGRAENT ITS FOR PTE 
ach ; BY CLEARING ALL OTHERS 
4CA 1 a at as. R2  ; TO FORM TRANSITION GLOBAL PTE 
63 52 51 C9 O4CA 1 BISL3 RI RD. (R ; MUST SET ENTIRE PTE A I 
4CE 1684 ; $0 THAT 1/0 CAN SEE CONSISTENT PTE 
05 at : RSB ; RETURN FOR NEXT PAGE 
4CF 1 ; 
4Ck 1 8 ; GBLWRTVALID HANDLES THE CASE 0 WRITABLE GLOBAL PAGE. 
4CF 1 ; SUCH AGES ARE DROPPED F On THE WORKING SET BEFORE OUTSWAPPING 
Ack 30 AND muss BE SUBSEQUENTLY” RE-FAULTED. 
4CF 1692 GBLWRTVALID: ; VALID WRITABLE GLOBAL PAGE 
07 63 «1A £5 4CF 169 BBCC #$#PTESV_MODIFY,(R3),10$ : TEST AND CLEAR MODIFY BIT IN, SLAVE PTE 
0000'DF40 80 B&F 8 D3 1694 BISB #PENSMMODIFY.aW*PFNSAB ~STATECR R01 AND SAVE MODIFY STATE 
5 10 O4DA 1695 10$:  B8SBB  GBLRESET 
4 11 O4DC 1696 BRB GBLDROP ; : HEeTE PUORKING SET LIST ENTRY 


J 5 
SWAPPER WORKING SET SWAPPER 16-SEP-1984 01:19: AX/VMS Macro v04-00 Pa 7 SWAF 
vival ts PROC NANS = PROCESS PAGE IN TRANSITION eS ty Oh: 18:78 YOYS SRCISUAPPER MAR: 1 - dS) v04- 
ADE .SBTTL PROCTRANS = PROCESS PAGE IN TRANSITION 
‘DF 
4DE 1 ; THIS PAGE IS IN TRANSITION DUE TO THE FACT THAT THE PAGE FAULT 
4DE 1 ; READ OPERATION HAS NOT YET COMPLETED. IT IS TREATED AS AN 
4DE 1 4 ; 1/0 IN PROGRESS PAGE. 
ae 
4DE 1 > PROCTRANS: ; PROCESS PAGE IN TRANSITION 
03 00 ED ADF 17 : CMPZV #PFNSV_LOC aprNss Loc - : IF THIS PAGE COULD NOT 
04 0000'DF4 ae al au PENSAB STATE RO), #PFNSC_RDERR ; BE SUCCESSFULLY READ 
51 06 rh 1 MOVL OR + DROP IT FROM THE WORKING SET 
FBi2' 4€8 171 BSBW MMGSDELWSLEX : DELETE THE WSL ENTRY GIVEN WSL INDEX 
88 1 Me 1713 BRB PROCDROP ; AND RELEASE THE PFN IF LAST REF 
470 1715; 
GF 1216 : PROCVALID HANDLES THE CASE OF A VALID PROCESS PAGE WHICH INCURS 
4FO 1717 : SOME SPECIAL PROCESSING IF THERE IS 1/0 IN PROGRESS. 1/0 IN 
4F 1718 ; PROGRESS PAGE IS SWAPPED WITH THE BODY OF THE PROCESS TO RESERVE 
4F0 1719 ; PACE FOR IT IN THE SWAP IMAGE AND IS LATER WRITTEN WITH CORRECT 
4FO 1720 : CONTENT BY THE MODIFIED PAGE WRITER TO THIS RESERVED SPACE IN THE 
4F 7 1; WAP IMAGE. 
4FO 17 4 PROCVALID: ; PROCESS VALID PAGE 
F 7 4 ni -ENABL LSB 
04 0000° DF 49 07 €4 O04F0 17 : “ - BBSC ~—s #@PENSV_MODIFY, @W*PFNSAB_STATECRO],20$ _; BR IF PAGE MODIFIED 
0463 1A €1 O4F7 17 BBC sPTESV "MODIFY. (R3). 308 ; BR IF PAGE NOT MODIFI 
00 6D 08 €2 are 7 8 208: BBSS  #WSLSVIMODIFY,(FP),30$ ; SET WORKING SET MODIFIED BIT 
0000'pF 40 1 8} arf 7 : y CMP #1, @W*PFNSAW_REFCNTCRO] ; CHECK FOR 1/0 OUTSTANDING 
0452 £9 3 3 17 é BLBC —OséaR SETURTBAK + BRANCH IF TRANSITION PAGE 
0D 6p «408 1 A 17 BBC #WSLSV_MODIFY,(FP),40$ : DONT WRITE UNMODIFIED PAGES 
S0E 1734 SETWRTBAK: ; SET PAGE FOR WRITE BACK TO SWAP FILE 
51 59 5B C3 O5S0E 1735 SUBL3. -R11,R9,R1 ; GET OFFSET TO PAGE IN SWAP MAP 
1 04 C6 512 17 i DIVL > + SCALE BACK TO PAGE NUMBER 
0000'pF40 «51—iés«@wB 318 7 Le MOVW = R1,aW*PFNSAW_SWPVBNCRO] ; SET OFFSET INTO SWAP IMAGE LESS APTCNT 
89 SA 50 C9 318 1738 "- BISL3 ~—- RO, R10, (ROD + + PUT PAGE IN SWAPPER MAP 
1F 1509 : SET DELETE CONTENT FLAG TO CAUSE PAGE TO BE PLACED AT HEAD 
IF 246 ; OF FREE PAGE LIST AND CONTENT FORGOTTEN. 
0000'DF40 10 88 Sif 1744 BELCON: BISB  #PFNSM_DELCON,@W*PFNSAB_STATECROJ ; SET TO DELETE CONTENT 
525 1745 ; RETURN FOR NEXT PAGE 
3 6 1746 .DSABL LSB F 
526 1748 WSLERR: BUG_CHECK IVWSETLIST, FATAL : INVALID WORKING SET LIST ENTRY 
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WORKING SET LIST ENTR 


-SBTTL PAGE TABLE WORKING SET LIST ENTRIES 
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PPGTBLTRANS: 
PPGTBLVALID: 
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ves MECREESTRRG OU:18:32 


LE AND PROCESS HEADER ENTRIES 


AX/VMS 
SYS.SRCJSWAPPER.MAR; 1 


acro 


N THE WORKING S 


RED DURING THE PROCESS BODY OUTSWAP SCAN OF TH 


PCBS APTCNT(R4) 
R5, (FP) 
#VASV_SYSTEM, (FP) ,108 


04-00 


5 LIST 
WORK ING 


AGE TABLE 


mw 


Peer 36) 


VE PAGE TABLE COUNT 


OR PAG 


M BIT 


E TABLE 
ON IN VA 


L § 
ss Yeap =" sen MCRESHME RAS MMRDA, 


ALL PAGES HAVE NOW BEEN ACQUIRED AND A BALANCE SET SLOT 
ALLOCATED. THE INSWAP I/0 OPERATION CAN NOW BE PERFORMED. 


INCW W*SWPSGW_BALCNT 


MOOOOOO IWIOvT7 oO 


; ADD ONE PROCESS + BALANCE SET 
TO INS B 


7 ~SBTTL INSWAP 
1769 ;- Sem DB estore eenowenronweanrscae = Se Pere eee ewe T ew oS oe BPS wr ees es es oe en eee ce ene ne Se mS wee SS = oe 
; PERFORM REQUESTED INSWAP 
W772 : INPUTS: 
; R4 = PCB ADDRESS OF INSWAP CANDIDATE 
1775 ° sae ow = 
1 id: INSWAP: : PERFORM INSWAP 
55 6C AG 09 1 MOVL PCBSL_PHD(RA) RS : GET CURRENT PROCESS HEADER SLOT 
06 7 8 BEQ + NONE, MUST ALLOCATE ONE 
58 O42 A C 1 MOVZWL PHDSW_PHVINDEX(RS),R8 =: GET BALANCE SLOT INDEX 
, F 17 0 BRB 40$ ; AND CONTINUE 
8 d4 0541 17 108 CLRL oR : INIT INDEX FOR BALANCE SLOT SEARCH 
0000'DF 48 i , 7 ‘ ist W°PHVSGL_REFCBASCR8) CHECK FOR ogee’ 
F1 58 00009000" EF F 4A 1784 AOBLSS SGNSGL_BALSETCT.R8,208 + TRY ALL BALANCE SET SLOTS 
5D (O01 CFO 33 7 5 ROTL #31,#17FP ; SET FLAG 10 PERMIT OUT SWAPPING 
FBBD «31 33 17 $ BRW SWAP + OUTSWAP IF NECESSARY TO GET SLO 
0000'DF48 60 a6 BO 0559 17 ’ 30$ MOVW PCBSL_PID(R4),aW*PHVSGL -Prxgastre) SET PIX FOR SO ANCE SET SL 
0000'DF48 B84 360 17 CLRW aW*PHUSGL_REFCB ; BUMP REFERENCE COUNT 
50 58 900° ¢F § 0565 1790 MULL3 W*SWPSGL_BSLOTSZ,R8,RO : COMPUTE BALANCE SLOT OFFSET 
6C AG 9 9C 0568 1791 ROTL 4#9,RO0, PCBSL UPHD CRG)” : MAKE BYTE OFFSET 
5 1798 : POSITIVE UNTIL I/O COMPLETE 
59 ps 570 179 408: CLRL = RO : INITIALIZE SWAPPER MAP INDEX 
FAgB 0 572 1794 50$:  8SBW §§ MMGSALLOCPFN t ALLOCATE A PAGE 
50 dS 0575 1795 TSTL OR : MAKE SURE IT WAS ALLOCATED 
04 18 057 1796 BGEG 608 : YES, CONTINUE 
579 179 BUG CHECK INSNEREPAG FATAL ; INSUFFICIENT FREE PAGES 
0000 "DF 40 8 57 1798 60S: INC FNSAW_REFCNTCR REFERENCE PAGE 
0000'DF4 582 179 MOVB OPENS AAC ACTIVE Sears STATEERO] : AND MARK I ACTIVE 
0000'DF49 = 50 80000000 F C9 0588 1800 BISL3. #<PTESC_ERKW!PTESM_ VALIB>,RO GW*SUPSGL PCR9} VALID, WRITABL 
DB A 2 0593 1801 AOBLSS R10,R9,50$ ; REPEAT FOR AC Reauinéo'P PAGES 
0000'DF49 =a 39 : CLRL Suscpsere _MAPLR9) : PUT STOPPER IN LIST 
9C 1804 
9 5 
3e ROS 
5a0 1 ’ 
SA 
min 
isi$ 
5 
iH 
1819 
185) 
1 
seh Re 


0018'CF 8B : 
Q000'CF 54 08 0 MOVL §$R4,W*SWPSGL_INPCB : SA VE POINTER 
0000'CF 5A D MOVL §R10,W*SWPSGC_ISPAGCNT : SAVE COUNT OF ALLOCATED PAGES 
0000'CF 58 B80 AA MOV RB, W*SWPSGW_TBALSETX |: AND BALANCE SET SLOT NUMBER 
AF 1812 : 
At ; PERFORM INSWAP 1/0 OPERATION 
At : adie aiet ee aE ee NT ED 
52. 20 Ab 00 A 1 MOVL  PCBSL_WSSWP(R4),R2 i GET SUAP IMAGE DISK ADDRESS 
2A 1 B 1 BLEG COPY ELL re SHELL IN SWAP 
07 24 AG 2 4 B 1 BBC V BHDRES PCBst | srschaft 70 “SvAP EVERYTHING IF {HEADER NON-RES 
0 304A ¢ BA MOVZWL 4 45 W_APTCNT(R4) JR ; GET ACTIVE PAGE TABLE COUNT 
2 so ¢ BF ADDL RO, R2™ + ADD act TABLE COUNT 
00'DF DE C 70$:  MOVAL aw SUPSGL _MAP,R3 + SVA OF PAGE TABLE FOR 1/0 
4 SA D C6 MOVL  R10,R t NUMBER OF PAGES TO READ 
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5 000° CF 
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0000"¢f , 
a 
F998" 
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INSWAP 
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AX/VMS Macro V04-00 Page 40 
_H ~SEe18Be BELRiTS PANEMBS Macro yO4=00 ve 39, 
‘ AD R10,W* WPSGL ISWPPAGES ; UPDATE TOTAL PAGES INSWAPPED 
: I W*SUPSGL_ISWP ; BUMP INSWAP COUNTER 
§ SWPREA ; PERFORM READ 
18 BL RO,8 ; BRANCH IF NO ERROR IN READ 
18 BU K INSWAPERR,FATAL ; **** BUGCHECK ON 1/0 ERROR 
i 80$: BRW SE ; SET UP PROCESS IN BALANCE SLOT 
1831 COPYSHELL: 
16 MOVA yrRNGSAL SYSPCB,R4 ; ADDRESS OF SYSTEM PCB 
18 V PCB PHD (R4) RS ; ADDRESS OF SYSTEM PROCESS HEADER 
1 r VL usey uPscL HELIO + GET 1/0 PAGE COUNT FOR SH 
B35 MOVAB L‘“SWP GL *SHELLBAS.R2 ; GET ADDRESS OF SHELL 
18 é SBW WINGS SYA TECHK : GET ADDRESS OF PAGE TABLE ENTRY 
18 PUSHR #*M<R3,R6> ; SAVE SVAPTE AND PAGE COUNT FOR LATER 
18 ; CLRL Rg ; SET FLAG INDICATING NO I/O NEEDED 
18 MOVZWL #25643,R7 ; SET FLAGS TO LOCK ONLY VALID OR 
1840 ; TRANSITION PAGES AND CREATE OTHERS 
184 ; WITHOUT ZEROING THE PHYSICAL PAGE 
1848 MOVB WySLSC SYSTEM, R2 > SET PAGE TYPE IN LOW BITS 
184 BISB MGSM NOwAlT -W*HMGSGB_FREWELGS : PREVENT FREWLSE MWAIT 
1844 10$ BSBW anes NOLOtK? ; THE PAGE INTO SYSTEM WORKING SET 
1845 BLBS sR ; BR ANCH IF SUCCEEDED 
1846 BUG CHECK P edtrenss, FATAL ; INSUFFICIENT FREE PAGES 
1847 20$ BISB : SET FLAG (BIT 1) IF WE HAVE TO I/O IT 
1848 MOVAB BO sRR oy, R2 + BUMP VA TO NEXT PAGE 
184 ADDL a4, R : BUMP PTE TO NEXT ENTRY 
1850 SOBGTR 10 ; LOOP THROUGH THE PAGES 
1851 POPR shit R4> ; RECOVER SVAP TE AND PAGE C 
1858 BBC #1 0$ $ BRANCH IF ALL SHELL PAGES th MEMORY 
185 BICB 1 reese _NOWAIT -W°MNGSGB_FREWFLGS ALLOW FREWLSE MWAIT 
1854 CLRL ORR 7 SHELL 1S PAGE FILE 0 AND VBN O 
1855 BSB SuPR AD + PERFORM SHELL READ 
1856 BLBS _—-RO, 308 NCH IF NO ERROR IN READ 
185 BUG CHECK Inswapene. FATAL * BUGCHECK ON 1/0 ERROR 
1858 308: 1S MMGSM NOWAIT, i remanent FREUFLGS PREVENT FREWLSE MWAIT 
1859 40$:  SETIPL ris ASIDE 7 ALLOW R RESCHEDULE AND PAGEFAULTS WHILE 
1860 ; COPYING ELL BUT NOT COMPLETION ASTS 
186 VL W°SuPSGL _SHELIO,R6 ; GET 1/0 PAGE COUNT FOR SHELL 
18 ; MOVAB LosuPscy “SHELLBAS,R? : GET ADDRESS OF SHELL 
186 ASHL ; GET BYTE ¢ 
1864 CLRL ; FORM DEST INATION VA 
1865 MOVC3 RO, (R7), (Rt) ; COPY THE SHELL TO LOCATION 0 
18 6 SETIPL #IPL$ $ SNC ; BACK TO BLOCKING IPL 
186 BICB S PRAG ¥ NNOWAIT /W°MMGSGB_FREWFLGS ; ALLOW FREWLSE MWAIT 
18 8 MOVO ; ; SET U P COUNT AND VA OF SHELL AGAIN 
186 BSBW MMGSSVAPTECHK ; GET ADDRESS OF PAGE TABL E ENTRY 
1870 BSBW = MMGSUNLOCK + DROP THE REFERENCE COUNT 
1871 : CONTINUE PROCESS EREAT ION 
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MOVZWL wW*SWPSGW_ IBALSETXR AND BALANCE SET INDEX 
MULL3 W*SWPSGL~BSLOTSZ AB, R7 COMPUTE OFFSET TO THIS 
mOVAL Su*suPSeC eBALSPTER §,R7 : FORM BASE ADDRES 


: SETUP INSWAP PROCESS 
BSBW  =s-«dOS INIT : INIT REGISTERS 
MOVL W*SWPSGL_INPCB,R4 ; GET PCB ADDRESS OF INSWAP PROCESS 
ist PcBSL_ PHB (R4) : CHECK Mr NEWLY ALLOCATED PHD 
ADDL  W*SWPSGL_BALBASE,PCBSL Phin cng) AND SET ADDRESS IN PCB 
TSTL  PCBSL_WSSWP(R4) : CHECK FOR SHELL INSWAP 
BGTR _-NOTSH HELL ; BR IF NOT 
INVALID : CLEAR TRANSLATION BUFFER 
JSB a#SWPSSHELINIT : CALL SHELL INITIALIZATION 

: WHICH RETURNS WITH A FULLY INITED PHD 

3 SLOT 

$ OF MAP FOR SLOT 
NOW POINT TO PROCESS HEADER 

BBSS #PtBsv PHDRES PCBSL_ sts (Rs) 5$ ; SKIP IF PROCESS HEADER STILL RESID 
INCL Ww" SuPs PSCL_ SWPCNT ; COUNT SWAPS INCLUDING HEADER 


BSBW FILLP ; ser Into SPT ENTRI 


FILLPHD RETURNS warn R5 POINTING TO THE PROCESS HEADER POSITION 
WITHIN ITS PO SPACE 


MOVW R8,PHDSW_PHVINDEX(RS)  ; sgt BALANCE SLOT INDEX 


ADOL PCBSL PHD(R)? -PHDSL. POBR(R5) a Oe PO BASE REGISTER 
ADDL PcOst oP R4) ,PHDSL-P1BR(R5S) rg ot Pi BASE REGISTER 
BBSS #PHDS? Noaccyfo PHDSW_FLAGS(R5) és" DICATE PHD INSWAP TO 
EXTZV #0,#PTESS_PFN,(R7),RO- ; GET bats ial uate PCB 


ROTL #9,RO,R AND SET 
MOVAB PHOSL_PCB(RO) ,PCBSL_PHYPCB(R4) ; ADD OFFSET TO HW PCB 
NOW SET PAGES FROM WORKING SET LIST INTO PAGE TABLE ENTRIES 


MOVL — PCBSL_PHD(R4),R5 ; GET PROCESS HEADER ADDRESS 
INVALID ; CLEAR TRANSLATION BUFFER TO SEE IT 
A WINDOW IN P1 SPACE IS DOUBLE MAPPED TO ALL OF THE PROCESS 
HEADER EXCEPT FOR THE PAGE TABLES. THIS PERMITS REFERENCE TO 
MOST OF THE PROCESS HEADER WHILE RUNNING AT IPL LESS TH 
SCHEDULER. TO REFERENCE THE PROCESS HEADER IN SYSTEM SPACE 

A PROCESS(OTHER THAN THE SWAPPER) MUST RAISE TO IPL$_SYNCH. 
MOVL §§ SWPSGL_PHDBASVA,R2 ; VIRTUAL ADDRESS OF PHD WINDOW 
BSBW MMGSSVAPTECHK : GET POINTER TO WINDOW PTE 
MOVL W* SGNSGL PHDPAGCT,R2 se: SET COUNT OF PAGES FOR WINDOW 
MOVL #<PTESC_ORKW!PTESM -VALID>,R > SKELETON PTE 

MOVL  (R7)+,R0 : GET SWAPPER PTE FOR PHD 

BLSS : BR IF VALID PAGE 

CLRL =. (RB + : NO, SET NO ACCESS 


B 6 
v04~000 penile "SSEp=198e BSLBiTS USE VSRCHSGRBeER canes: «=| P88 (58, 


1 FO 1 BRS 3 $ 
51 15 09 F rg 13 20S: INSV AP PTESV. PEN, #PTESS_ PEN, a : AND INSERT PFN INTO WINDOW PTE 
D fF? MOVL ORE N WINDOW AND ADVANCE TO NEX PTE 
EC F FA 13 23 30$: SOBGTR 4 16 at NTIRE PHD WINDOW 
ore 1 $ : THE REMAINING LIST OF PAGES READ BY THE SWAPPER ARE NOW PROCESSED 
FD 4 ; ACCORDING TO THE CONTENT OF THE WORKING SET LIST IN THE HEADER OF 
FD 1 3 ; THE INSWAP PROCESS. THE DISPOSITION OF EACH INSWAP PAGE DEPENDS 
FD 1 ; ON ITS TYPE AND WHETHER THE PAGE IS ALREADY SENT IN WHICH CASE 
FD 1940 ; THE NEW, REDUNDANT COPY IS DISCARDED. SHARED PAGES READ FROM THE 
6FD 1941 ; SWAP IMAGE WHICH ARE NOT ALREADY RESIDENT B — THE MASTER COPY 
orp 196 : AS WELL AS SATISFYING THE REQUIREMENT OF THE INSWAP PROCESS. 
5B 01SsédA# ¢ FD 1944 ° ROT sPTESY VALID,#1,R11 ; FORM VALID MA 
56 08 a3 C i! 1945 MOVZWL PHD$W -USLIST ORGS RG + INDEX TO RT ART OF PERM ENTRIES 
12 A ¢ f 3 1946 MOVZUL PHOS WSLAST(R5),R ; POINTER TO LAST WS ENTRY 
52 654 Dd 709 1948 WSLOOP: MOVL (R5)CR6I,R2 ; GET A WORKING SET ENTRY 
1 1 70D 194 BoBS ; AND PROCESS IT 
F6 56 2 F 70F 1950 AOBLEG R6,WSLOOP : SCAN ENTIRE WORKING SET LIST 
50 89 SA C¢ a 1951 5$: BICL R10, (R9)+,RO 3 GET AND RELEASE EXCESS PAGES 
93 71 199¢ BEQL ; BR IF NO MORE 
03 H 719 195 BSBW iam ; RELEASE AN EXCESS PAGE 
F 1 O71C 1954 BRB 5 ; AND TRY FOR ANOTHER 
0261 31 al: 1955 7$: BRW SETA ; END OF WORKING SET LIST 
7 1996 ASSUME USL ay VALID EQ 0 ; FOR USE OF BLBS 
OA 52 6 721 195 10§: BLBS ; CHECK FOR VALIDITY, BR IF VALID 
724 1958 15$: RSB ; GET NEXT WSL ENTRY IF NOT VALID 
33 35 CO 0725 1959 17$: ADDL ; REBIAS VA FOR WSL ENTRY 
6546 «5 ) 9 728 19 9 BISL3 RR Reo (RS) CRO ; AND SET SYSTEM BIT IN VA 
5 , p 196 18s: RSB ; NEXT WORKING SET LIST ENTRY 
F519 «(07 1968 BLSS 17$ ; SKIP PAGE TABLE ENTRIES 
FECD' 30 , 1966 BSBW MMGSSVAPTECHK : GET SVA OF PTE FOR PAGE 
7 1966 : RO = ALL BITS EXCEPT PFN FIELD ARE CLEAR 
7 1967 ; Re - WS LIST ENTRY 
7 1968 ; R3 - SvA OF PTE 
7 1969 ; R4 = INSWAP PROCESS PCB 
7 1970 ; R5 = PHD ADDRESS FOR INSWAP PROCESS 
7 1971 ; R6 = WORKING SET INDEX 
7 1978 ; R7 = END INDEX TO WORKING SET 
7 1973 ; RB = BALANCE SET SLOT INDEX 
7 197% ; Ro - ADDRESS OF PHYSICAL L PAGE POINTER IN, SWPSAL_MAP 
7 1975 ; R10 - PTESC_ERKW!PTESM VALIDIPTE M_MODIFY MG 
, 1976 ; R11 = CONSTANT PFNSM_VALID a 
50 89 SA 8 7 1378 . BICL3 R10,(R9)+,RO ; GET PFN FROM MAP MAG 
06 «1 7 192 BNEQ 30$ :; GOT A GOOD PFN MG 
739 «1 9 BUG_CHECK ZEROPAGE,FATAL ; ZERO PAGE TABLE ENTRY FROM SWAP MAP MMG 
5C D 7 19 303 Move {8 ), AP ; GET CONTENT OF PTE RAG 
0B 1 iS 1 ¢ BGEQ 5 ; PTE VALID => PFN LOCK, NOT SWAPPED se] 
74 13 t IF THE PAGE IS VALID ST HAVE BEEN LOCKED IN MEMORY AND WAS IGNORED AT MAG 
742 1 : ; OUTSWAP. TH we REDUNDANT PAGE ALLOCATED FOR THIS WORKING SET LIST ENTRY MUST AMG 
742 19 $: 3 BE RELEASED AFTER ALL WORKING SET LIST ENTRIES ARE PROCESSED. mMG 
742 1987 : ACTION IS NEEDED SINCE THE PTE FOR THE LOCKED PAGE IS ALREADY CORRECT. MMG 
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AX/VMS Macro Vv04-00 


Pa 
SYS.SRCJSWAPPER.MAR; 1 ” 


8:15 


4 
(23) 


; THE PFN THAT WOULD HAVE MATCHED THIS ENTRY REALLY BELONGS TO THE NEXT 
> WSL WITHOUT PFNLOCK eet, SO THE MAP POINTER IN RO MUST BE BACKED UP FOR 
: ANOTHER TRY. 
B8¢ vst sv PFNLOCK,R2,32$ ; ERROR IF PAGE NOT LOCKED IN MEMORY 
TSTL + BACK UP IN Si APPER 
RSB + AND CONT WITH NEXT WSL 
323: BUG_ CHECK ICPAGELOC, FATAL : INCONSISTEN /WSL 
$: BBC pTEsy TYP1,AP,NTYP1 ; BR IF NOT WYRE. 
MOVL RS. Su"PENSAL PFELROJ + NOTE LOCATION OF PTE 
MOVW <R67aW*PFNSAx_WSLXCROJ>,- ; AND POSITION IN WORKING SET 
LONG OPCODE=MOVZWL,- 
IMAGE=SYS_N pit 
EXTZV Had y BAR, APEN $s BAK, (R3) RI GET BACKING ADR FROM PTE 
BS PTE SV 1f SECTION ADDR ESS 
INSV PHD 8 Verve gehts’ #PENSV botxs#een S_PGFLX,R 
; at GING FILE ER 
40$:  MOVL  R1,@W*PFNSAL_BAKCRO] BACKING ADDRESS 
MOVE #PFNSC_ACTIVE, aW*PFNSAB_ grATECRO SET PAGE ACTIVE 
RECONNECT: an TO PAGE 
BICL3 #"CcPTESHP PROT! PTESM_ own, (R3),R ; RETAIN PERMANENT BITS 
MOVAL 3 GET ADDRESS OF WORKING SET LIST ENTRY 
BBCC ae, V CaSetrY, (R2) ,50$ ATE f hod FOR MODIFIED AND CL AR 
BISB #PFNSMMODIFY.aW*PFNSAB_ iy RO] RECORD MODIFY STATE 
50$:  BISL ~~ “4 i16 BIT FOR PTE 
BISL3 RO,R1,(R3) : sence “alts WITH PFN AND STORE IN PGTBL 
EXTZV Ovasy’ VPN, #VASS_V ri GET VPN OF PAGE pr ABLE 
INSV  a@W*MMGSGL *SPIBASEER II, “i, ,#PTESS BEN.R 


BBS 
EXTZV 
BEQL 
RELEASE 
BSBW 


PEN REFERENCE 

aw" PFNSAx SHRCNTEROI>, - 
CONG OPCODE=TS 
ai ORONSAGED 


PFN_REFERENCE 
<aw*PFNSAx WSLXCROJ, R1>,- 
LONG OP CODE anoy 


LSM NONPAGED 3 
psu PTCNTACT (RS) : 
SUSPNOSGL™ NREF CBASCRB) 3 


PEN sit 

aw" PFNSAx SHRENTEROI>, ° 
CONG. 0 
LRAGESSYS OFOUPARED 


LSB 


#PTESV_ 
#PTESV— 
128 


TYPO,A 
PEN AP TESS. PFN.AP, 


PFN FOR PAGE ALREADY PRES 
RELPAGE ; 


: GET 
SSUMES Nien ORDER Bits POF RO ARE CLEAR 
; CHECK FOR FIRST ACTIVE PAGE 


; NO, JUST RAISE SHARE COUNT FOR PT 
; GET INDEX TO WSL ENTRY FOR PAGE TA 


AND MARK IT LOCKED IN WORKING SET 
COUNT ANOTHER ACTIVE PAGE TABL 
RAISE REFERENCE COUNT OF BALANCE SLOT 


; INDICATE ANOTHER ACTIVE PAGE FOR P 


RETURN TO GET NEXT WSL ENTRY 
GLOBAL OR AL PAGE 


BR IF GLOBA 
FP GET N IF ANY 
: BR IF SERO Page (ouG CHECK) 


ENT 
RELEASE DUPLICATE PAGE 


dD 6 
v04~000 OU eee "SSEP=158 ObLR:TS UEVSYSRCHGABRERcAaR:1 «=| 88° (58, 
FN 
CR 


s 
P 
E 


5 0 07D 45 MOV FPR VED 
52. 0000'DF40 88 80 PF D 4 EXYoV ppengy Loc #PFNSS_LOC, auipnSAs. yee TEER 0), 
D 4 ASSUME PFNSC_FREPAGLST €0 ; 
DB 204 ASSUME PFNSC"MFYPAGLST EQ F 
DB ASSUME PFNSC"BADPAGLST EQ : 
DB ASSUME PFNSC-RELPEND £0 : 
DB ASSUME PFNSC-ROERR Q 4 : 
0708 ASSUME PFNSC-WRTINPROG EQ ; 
0708 ASSUM PENSC_RDINPROG Q : : 
0708 : ASSUME PFNSC"ACTIVE Q ; 
0708 CASE = R2, <= : ISPATCH ON PAGE LOCATION 
0708 $ f.- : FREE PAGE LIST 
0708 ~ ; > MODIFIED PAGE LIST 
0708 3 $,- 3 2 => BAD PAGE LIST, PAGE READ/WRITE ERR 
0708 $\- + 3 => RELEASE PENDING 
0708 $,- ; é => PAGE READ ERROR 
0708 $.- ; 5 => WRITE IN PROGRESS 
dB 40$,- ; $ => READ IN PROGRESS 
pre s 30$> : 7 => ACTIVE ( 1/0 NOT YET COMPLETE 
OEE 65 10$:  BUG_CHECK ICPAGELOC,FATAL : INCONSISTENT PAGE LOCATION 
0072 31 O7F r$ 11$:  BRW GLOBAL ; GLOBAL PAGE 
rr6 8 12$: BUG CHECK ZEROPAGE FATAL + ZERO PFN IN PTE 
53 p FA 79 20$:  PUSHL R3 ; SAVE SVAPTE 
Fagt* 0 O7FC 207 BSBW MINGSREMPFN > UNLINK PFN FROM FREE OR MODIFY LIST 
8 7FF r POPR : RESTORE SVAPT 
52 6546 5 4! 7 MOVAL (R5)ERG1.R2 > COMPUTE ADDRESS OF WSL ENTRY 
3 5B iC 74 30$ BIS (R3) ; SET VALID BIT FOR P 
0 75 ASSUME PFN$V_LOC EQ 0 USE B1SB INSTEAD OF INSV 
0000'DF40 07 88 0 2 BIS FNSC_ACTIVE,@W*PFNSAB_ grATE RO] 
E 2077 40S BICB  #<PFNSA DELCON!- : CLEAR DELETE AND 
f 4 PFNSM_MODIFY>,- 3 MODIFY 
0000'DF40 90 BF F 7 “PFASAB_STATECRO : FLAGS 
000 'DE4 B6 0815 0 45$: INCW @W*PFNSAWREFCNTCR : + RAISE REFERENCE COUNT 
9 O'DF40 B84 OB1A CLRW = @W*PENSAW SwPVEN R + INDICATE NO ALTERNATE LOCATION 
6546 OD 1 MOVAL (RS)CR6J,R ; COMPUTE ADDRESS OF W WSL ENTRY 
07 62 0 BBCC  #WSL$V_MODIFY,(R2),50$ ; CLEAR MODIFY BIT FOR WSL 
0000'DF40 80 BF z 4 som B1SB8 sPENSH MODIFY QU“PENSAB_STATECROJ ; RECORD PAGE AS MODIFIED 
E $ MOVW R6aW*PFNSAx_ WSLXCRO]>,- 3; SET WORKING SET LIST INDEX FOR PAG 
E LONG OPCODE=MOVZUL,- 
8 IMAGE=SYS_NONPAGED 
05 RSB ; AND RETURN FOR NEXT PAGE 
3 ; PAGE I§ ON THE BAD PAGE LIST. IT HAS THE FOLLOWING POSSIBLE STATES 
3 : ) BADP AG BIT set IN PENSAB_TYPE => BUG C 
93 ; 2) ety N CLEAR => PAGE MORITE ERROR CORRECT COPY OF MODIFY BIT 
94 ; is T ae LOGICAL OR OF THE WSLE BIf AND THE PFN BIT 
95 ; 3) SWPVBN SET => PAGE READ ERROR, SET RDERR STATE. 
B3 0000'DF40 95 EO 39 bos: BBS #PFNSV -BADPAG, aW*PFNSAB_TYPECROJ 10$ ; ERROR IF BADPAG 
c 38 PUSHL R3 : SAVE PTE ADDRESS 
F7BF ° 9 BSBW MMGSREMPFN ; UN Nk PFN FROM THE BAD PAGE LIST 
8 BA 084 90 POPR #*M<R3> ; RESTORE BYTE ADDRESS 
52 65 DE 0843 21 MOVAL (RS) ERGO, R2 ; COMPUTE ADDRESS OF WSL ENTRY 
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SET SWAPPER 16-SEP-1984 01:19: AX/VMS Mace P 
RES Pa Pe a Pe age $3, 
TSTW “PFNSAW_SWPVBNCRO] =; IF SWPVBN SET, THEN PAGE READ ERROR 
: BNEQ aos ; bhancn IF PAGE READ ERSOR — 
; PAGE WRITE ERROR 

ASSUME PFNSV_MODIFY EQ 7 
sie SPFRSAB. SYAPECRO ; IF PFN MODIFY BIT IS SET 
BBSS #VSLSV_MODIFY, (R2) 308 : THEN JAM THE WSL ENTRY MODIFY BIT 
BRB 30 : AND CONNECT TO THE PAGE 


: PAGE READ ERROR 
bos: 


1 

1 

1 

1 

1 

1 

1 

1 

1 

11 

1 

11 

11 MOVB #<PFNSM_DELCON ! PFNSC -PDERR>, © DELC 

116 aw*PFNSAB STATECRO Pade BEAD EE OOR STATE 

11 BICw #<WSLSM “MODIFYSc CR pea ¢ Clean WSL 

118 BRB 45$ AND VEAVE PTE IN TRANSITION STATE 
! 3 INSWAP GLOBAL PAGE 

122 GLOBAL: GLOBAL PAGE INSWAP 

1 EXTZV sPTesy GPTX wPTESS SPTX id GET GLOBAL PAGE TABLE INDEX 
124 MOVAL RMGSGL _GPTBASELR1) AND CONVERT TO ADDRESS OF GPTE 
5 HOVE Ch) oRe x ub P oLOBAL MASTER PTE 

1 5 BBS #PTESV_TYPO,R2,5 ie If GLOBAL SECTION TYPE 

1 : EXTZV #PTESV"PEN apres PFN,R2.R ; GET PFN OF TRANSITION PAGE 
1 ASSUME PFNSC_FREPAGLST EO 

p EXTZV gPENSO_ LOC, #PFNSS_LOC, ee ReTALLE TT ~R2 ss ;:-:* TEST FOR FREE PAGE 
1 3 ASSUME PFNSC_RDINPROG EQ <PFNSC -RDERR’ + 

1 CASE Re Z- DISPATCH ON READ CASES: 

134 55$, - 3 READ ERROR 

135 43, - ; WRONG STATE 

1 $ 60$ >, - + READ IN PROGRESS 

1 LIMIT=#PFNSC_RDERR 

1 é 4$: BUG_CHECK ICPAGELOC, FATAL WRONG STATE = CRASH SYSTEM 
13 5$: 50$ 7A BRANCH ASSIST 

iy 10S: ; INSWAP WITH VALID GLOBAL PAGE 

146 BSBW RELPAGE RELEASE REDUNDANT PAG 

14 EXTZV aPTESV _PFN,#PTESS_PFN,R2. RO N FROM MASTER 

164 BRB 40$ : AND GO SETUP SLAVE P TE 

145 208: ; SLOBAL ON FREE LIS 

146 PUSH RO + SAVE MASTER PFN 

14 BICLS R10,-4(R9),RO ; GET RE DUNDAN 

148 BSBWSséRRE: PAGE ; RELEASE I (PRESERVING R1-R3) 
14 POPR *R<RO> ; RESTORE MAST 

1 BISL R11,(R1) : SET PAGE VA 

1 PUSHR #*M<R1,R3> t SAVE SVAGPTE, SVAPTE 

1 BSBW BIGSREAPEN ; REMOVE PFN FROM FREELIST 

1 POPR so #*¥1 RESTORE SVAGPTE, SVAPT 

1 4 INSV  #PENSC ACTIVE #PENSY Loc: <APENSS _LOC,aW*PFNSAB STATECRO) ; 

INCU ay PENSAW. EF ENTCRO RAISE REFERENCE COURT 

1 5 30$: EXT2V #VASV yon gyaas VPN,RI ai : GET VPN OF PAGE TABLE 

158 MOVL #$aW*MMGSGL SPTBASECRI},A1 : GET PAGE TABLE PTE 


F 6 
04-000 OP ca "SSEe=198e OSES ESEVSRCHSGABeER canes: «= P88" (58, te 


51 511500 EF v6 15 EXTZV spTesy PFN, spTESS. PFN,R1,R1 ; EXTRACT PFN 
08 TSTw eerie SHRENTERIJ>, - ; CHECK FOR FIRST REFERENCE TO PTABL 
D808 21 2$Y$ oEOeA Aged 
04 12 OBEO 21 4 BNEQ ; NO 
os BUG Someh GBLPAGSZRO, FATAL + GLOBAL PAGE SHARE COUNT ZERO 
1 5 INCW yarn NSAx_SHRCNTCR1)>,- ; RAISE GLOBAL PAGE TABLE SHARE COUN 
DBE6 27 ONG_OPCODE=INCL,- 
BEG 21 AGE=SYS_NONPAGE 
EB 170 40$: PFN RE f ENCE = 
OBER 21 INCW <@W"PENSAx_SHRCNTCROJ>,- ; RAISE SHARE COUNT FOR GLOBAL PAGE 
me Lense eRouBe 
‘ s 
FE8S «6331 i 174 BRW RECON NECT - 7 RECONNECT AN FERENCE PAGE TABLE 
0000" DF 49 5B 17 00 EF O8F3 2175 50S:  EXxTZV gENSV K #PENSS BAK, R2,@W“PFNSAL BARERON E BACKING ADDR 
2 7FFFFE BF 4 6CA OBF 1% BICL erect A PROT PTESM_OWN>,R2 SAVE PROTEC TION AND OWNER FIELDS 
; 8 cg 1 BISL 1 3 SET ett vale 
1 (9 09 178 BISL3 \ a + AND STORE WITH PFN IN GPT 
"DFS 1 p 09 17 MOVL aw*PFNSAL_PTECRO] SET SVAGPTE IN PFN DATA BASE 
000'DF4 7 090F 21 0 MOVE = #PEN ACTIVE. QU"PFNSAB “HrACEROD SET STATE TO ACTIVE 
'DF4 2 90 0915 21 MOVB #PFNSC~GLOBAL. aW*PFNSAB-TYPECRO D TYPE TO GLOBAL 
AE 1 0918 ; BR 3 NOW GO séTUP SLAVE PTE 
091D 2184 55S: ; PAGE READ ERROR IN N GPT 
091D 2185 ; THE P WILL BE DEALLOCATED 
91D 21 6 : THE GPTE ne eae FALTERED TO USE THE PFN FROM THE INSWAP IMAGE 
d910 ; THE DATA BASE WILL BE ADJUSTED AS APPROPRIATE 
52. FC AQ c 0910 1 $ BICL3 R10, -4(R9) ; GET SWAP IMAGE PFN. 
0000'DF42 000 "DFO 09 1 0 MOVL a@W*PFNSAL_B BaxtRO2, aus PENSAL reat R21] ; COPY BACKING STORE. 
'DF4 09 ; 19 MOVB sPENSC ACTIVE, aw*PFNSAB ATELR ; SET STATE TO ACTIVE. 
'DF4 2 09 19 MOVB FNSC- ~GLOBAL , au*PFNSAB_ fiPe iy ; SET TYPE TO GLOBAL. 
if: , 19 PEN REFEREN ce = copy SHARE COUNT. 
09 194 mova < au“ PENSAx =SHRCNTCROJ, @u“PFNSAx _surcnttr . 
By se Get 
0000'DF 40 ps 094 199 CLRL ae -PrELAOD. ; SETUP FOR AND RELEASE 
012¢ 094 198 BSBW RELPA ; READ ERROR PEN. 
5 2 DO 094 0 MOVL R RO + SETUP MASTER PFN. 
61 15 FO 094 INSV ; #PTESV_PFN, #PT $5_PFN, (R1) : PLANT PFN IN GPT 
0000'pF4 [.e 9 ; MOVL av PENSAL _PTECR + PLANT PTE IN DATABASE 
61 f BISL ni i. : MAKE PT 1D. 
09 3 4 BRB + JOIN COMMON CODE. 
0000'DF40 10 «88 9 6 60S BISB = #PENS COLLISION, -@U*PFNSAB, TYPECRO} : FLAG COLLISION FOR PAGEREA 
C 096 PUSHR wenc Seabee ; SAVE REGS OVER WAIT 
54 000° CF 096 MOVL gL cURPCe, RG ; AND SET PCB ADDRESS 
F695" 96 BSBW NEWLO ; sel ASTLVL CORRECTLY 
52. 0000'CR 7E 0968 MOVAQ osscw GO_ topcwa, R2 ; GET ADDRESS OF WAIT QUEUE 
pb 9 1 PUSHL ; NULL KERNEL MODE PSL 
F6 1 BSBW = SCHSWAI + WAIT WITH NO CALL FRAME 
1 SETIPL #IPLS S1Wc : BLOCK SYSTEM EVENTS 
3¢ BA 1 POPR sf anc? RG gh ; RESTORE REGS 
50 fcao SA CB 1 BICL3 R10,-4¢R95,R ; RESTORE CURRENT PFN 
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WORKING SET SWAPPER 
INSWAP 


31 


mo WOoOO—-oDmodne _ —oo7o 
oo O-OCf—-W>P TSroSrusom 


BA 
05 


SETASTLVL: 


SSEp=198 Ob:48:15 USYSYSRcSGABPER san: 


GLOBAL ; AND ATTEMPT TO REASSOCIATE PAGE 


Page (3 


SET PROPER AST LEVEL 


PCBSL ASTOQFL(R4),R3 : GET POINTER TO HEAD OF AST QUEUE 
(R3) R2 + GET POINTER TO FIRST AST CONTROL BLOCK 
R3_RO : IS LIST EMPTY? 
4 ‘  TSStee CERNEL MODE 
Ac $B_RMOD(R2),R3 ; GET ACTUAL MODE 
1 BR IF SPE IAL KERNEL AST 
#ACBSV xfone Hates pope, R3-RO : GE ACCESS MODE 
P a TACT(R4) ,PCB ASTEN(RAD RI HECK FOR DELIVERABILITY 
OR ; BR IF NOT prestn LY DEES VERABLE 
“PHO TLVL + SET AST LEVEL OR PROCESS 
#<<1aPCBSV_RES>!<laPcBsy JNQUAN>>, CBSL_STS(R4) ; MARK PROCESS RESID 
sch H$GW_QUAN, PHD$wW_QUANT (RS) : AND GIVE NEW QUANTUM 
PCBSB PRI(R4) RO ; GET CURRENT PRIORITY OF PROCESS 
#3T LR ; COMPUTE EXTERNAL PRIORITY FOR COMPARE 
;W*S¥S$GB_DEFPRI : IS THIS A "'CRUNCHER''? 
o$ : NO, CONTINUE 
EXESGQ_SYSTIME,R Get CURRENT TIME IN APPROX. 10MS_ UNITS 
W°SCHSGL See re. R1 ww" subs SWTIME ; SET NEW CRUNCHER INTERVAL 
CHANGE TO RESIDENT COMPUTE 
: RETRY SWAP SCHEDULING 
W*SCHSGL_CURPCB,R4 RESS 


B ADD 
#PCBSV_WAKEPEN, PCBSL_ aslatl 308 


LSB 
: EXIT SWAPPER 
S*#SCHSV_SIP,W*SCHSGB_SIP,10$ ; CLEAR SWAP IN PROGRESS 


ALTERNATE EXIT, LEAVING SIP SET 
goNcR6, R7,R8,R9,R10,R11 AP FB y RESTORE REGISTERS 


; SET TO CANCEL HIBER 


4 
SWAPPER WORKING SET SWAPPER 16- AX/VMS Macro V04-00 Pa 8 
v04 FILLPHD = FILL SPT ENTRIES TO MAP PHD g-365 ~}382 By: 13 HA SYS. SRCJSWAPPER.MAR; 1 - (38) 
44 ot ~SBTTL FILLPHD = FILL SPT ENTRIES TO MAP PHD 
. & 3¢ 
DEF ; hocripen L DESC RIBTION: 
5 . ; $ THE PTE ENTRIES FOR THE PROCESS HEADER INTO THE 
F ; 
; F ; CALLING — 
i . ; 8SB/JSB FILLPHD 
EF § ; INPUT PARAMETERS: 
F ; R POINTER TO FIRST SPT ENTRY FOR PHD 
F ; ADDRESS OF SWAPPER MAP ENTRY TO BE MOVED TO SPT 
EF ; RO = - PTESC_ERKW!PTESM_VALID!PTESM_MODIFY 
EF , $ OUTPUT PARAMETERS: 
SEF ; RS = ZERO 
SEF 4 ; Ré = DESTROYED 
9EF 2075 : R9 = UPDATED 
EF id: : R11 = DESTROYED 
9EF 2277 : AP = DESTROYED 
EF 28 : FP = DESTROYED 
9EF 6 
Bee FILLPHD: 3 
55 D4 O9EF ¢ CLRL sR ; SET PHD ADDRESS TO SWAPPER PO SPACE 
oF 1 4 INVALID : TO SEE CORRECT PROCESS HEADER in SWAPPER P 
58 4 O9F4 5 cLRL R11 ; INIT HEADER PAGE INDEX 
56 9008 ¢ 9F6 6 MOVZWL PHDS$W_EMPTPG(RS) .R6 + GET COUNT OF EMPTY PAGES 
6 069 9FB ASHL 9 : CONVERT TO BYTE OFFSET 
5¢ 48 AS 00. O9FF 8 MOVL PHOS WSLX(RS) AP + FORM BASE ADDRESS FOR WSLX 
C 656C DE OA 3 MOVAL (R5) + SAVE VECTOR FOR PHD 
5D 44.45 DO OA 0 MOVL Casstr a BAK (RS), FP ; FORM BASE ADDRESS FOR BACKING STORE ADDRES 
5D 6540 DE OA 91 MOVAL + VECTOR 
5 36 C2 OAOF 3 SUBL y. + ACCOUNT FOR EMPTY PAGES 
D 56 C2 OA : 9 SUBL «RO. F : BY SUBTRACTING THEIR SPACE 
56 9000" F 00 OAI 94 MOVL Han BSLOTSZ,R6 : SET ITERATION COUNT F OR CHITIRE HEADER 
p DO OAIA 2295 10$:  MOVL )+ nas ; SET BACKUP FORM OF PTE IN SPT SLOT 
18 OA1D %6 BGEG ; DONE IF NOT 
89 SA CB Oal 9 BICL3 R10 ; Ger PAG GE ah Ron BS¥APPER MAP 
0000'DF4 3 DE OA 38 MOVAL ater as ERO} : SET PTE R 
51 17, 00 +€EF OA 9 EXTZV apr’ OO AK Speke. Bar POOLATE Bh KING STORE ADDRESS 
51° 08 18 OWA Fo A ; INSV PHOSB, PAG piLcRs) RS) SPP NSP pettK weinss. PGFLX FILE NUMBER 
'DF4O 3651S s«OsC*OA 4 MOVL rie * ; SAVE IN PFA DA A BASE 
A A ; MOVW UHL ina, WSLXCROJ>,- ; SAVE WORKING SET LIST INDE 
ASA 5 Hane =SYS_NONP 
83 SA SO C9 Ad] : BISLS RO,R10,(R3)+ SET VALID P EaSS 
0000'DF40 87 B&F As a<PEnsé pACTIVE:PENSH movir¥> au bENSAB’ “STATE j BARK PAGE ACTIVE 
0000'DF40 04 Ad : ROV vB aPENS =FPGTBL, ,au*PFNSAB_TYPECRO) — IN PFN DATA BAS 
C4 5B 56 F Ae ; 30S: AOBLSS R6,R11, ; FILL ENTIRE process HEADER 


ss 


FS 
=z 


Nit 


1 
1 
1 
1 
1 
1 


TALIZE REGISTERS FOR PAGE ‘SaSEP-19BC HEiaBstS Fete Cac TEGABe LO Age. Page 33, Oe 
.SBTTL RELINIT = INITIALIZE REGISTERS FOR PAGE RELEASE LOOP 


3+ 
; rents whtosete. 
ELIMI ETS ope REGISTERS FOR THE PAGE RELEASE LOOPS FOLLOWING 
Ou WAP 1/0 OPERATIONS. 


CALLING SEQU wh 
BSB/JSB RELINIT 


INPUT PARAMETERS: 
NONE 


>>>>>>>>r>rPr 


COOOCOOOCOCOOOCOCOCOOCOOOOOOOOOOOCOO 
P PAA AAA AA AAR AAA AAA 
20 


OUTPUT PARAMETERS: 


our a nae “RELEAS (OSWPPCB) 
BASE ADDRESS FOR SWAPPER MAP (SWPSAL_MAP) 
PTESC_ERKW!PTESM_VALID!PTESM_MODIFY 

BASE ADDRESS FOR” SWAPPER MAP™ (SWPSAL_MAP) 


=~ 
~o 
seeuee 


ELINIT: ; RELEASE LOOP INITIALIZATI 
; GET PCB ADDRESS OF OUT SuAP PROCESS 
OR RELEASE LOOP 


W*OSWPPCB,R4 
RELEAS 


MOVL ; 
NOV ZUL W*OSUPPGS .R7 : AND PAGE COUNT F 
BRB OSINIT : FALL INTO OSINIT 


DOONAN WN OS OOD NA NLA § OOD NAUE UW 


04-000 OSINIT = OUTSWAP SCAN REGISTER INITIALIZ 'S-SEP-19B¢ ObsaBit5 EevSveRcHSuappERcman:1 «=| 2° (58, 


«SBTTL OSINIT = OUTSWAP SCAN REGISTER INITIALIZATION 


’ 

FUNCTIONAL ft 3d a et 
OSINIT $ UP REGISTERS FOR PAGE TABLE SCANS REQUIRED DURING 
OUTSWAPPING. 


INPUT PARAMETERS: 
NONE 


OUTPUT PARAMETERS: 
Ro = OF poorest F wt 4 MAP (SWPSAL_MAP) 

TESC_ERKW!PTESMV. 

Ril - BASE KDDRESS OF SUAPPER MAP (SWPSAL_MAP) 


Oe Se Se Se Se Se Oe Oe Oe Se Oe Be Be Se 
e 


MOVAL a@W*SWPSGL_MAP,R9 ‘ ; SET BASE OF SUAPPER MAP 
MOVL ; AND MAKE REFER NCE C 
MOVL #<PTESC_ERKW!PTESM_VALID! {PTESM MODIFY>, R10 ; AASK TO VALIDATE SWAP P 


: 
: 
1 
: 
: 
: 


REL 


F58C* 30 
gooororsh Bf 
iby 
ee 


K 
Pp 


I 
A 


ET SWAPPER 16-SEP-1984 01:19: AX/VMS Macro 
RELEASE DUPLICATE PAGE $7385 =1 382 Bb 3:75 SYS.SRCJS SGAPPER MAR: 1 
«SBTTL RELPAGE = RELEASE DUPLICATE PAGE 
"FUNCTIONA ag ttt es 
RELEASES. A PUYSicAy PAGE WHICH DUPL Cat ES A rose ALREADY 
PRESEN PROCESS. THis phe ION CAN AR * DUE TO A PARTIAL 
INSWAP oR A GLOBAL PAGE WHICH IS ALREADY PRESEN 


CALLING SEQU wit 
BSB/JSB RELPAGE 


INPUT pAnAne yer 4 
my'- p RELEASE 
e SVA oF PTE (RELDELPAGE ONLY) 
OUTPUT Pag Hii 4 


ELDELPAGE: 
SBW MMGSDELCONPFN 
ELPAGE: 


PUSHR #*M<R1,R2,R3> 
CLRB aurer n$aB_ -STATE 
CLRW a@W*PFNSAWREFCN 
ASSUME OrNSe NPREPAGLST 


BSBW MMGSINSPFNH 
54 #*M<R1,R2,R3> 


o=-uwmmm 
m>- 


DWOOOOOOO OWDWWWOWOMDMDOWo VN 


CONAN WN 0 OONOUE WP" OOONO 


ASE PAGE THROUGH DELCONPFN 
E PAGE CONTENT AND INIT PFN DATA 


Peer 3h) 
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SWAPPER WORKING SET SWAPPER 16-SEP-1984 01:19: AX/VMS Macro V04 =00 Pa 
rival ti SOPREAS/SUPURTTE = SWAPPER 1/0 ROUTINES - ath 7 Bh: 3:78 Heys” SRCJSWAPPER.MAR; ” (38) 
é .SBTTL SWPREAD/SWPWRITE = SWAPPER 1/0 ROUTINES 
4 3++ 
404 ; FUNCTIONAL DESCRIPTION: 
405 ; SWPREAD AND WPURITE PERFORM THE DETAIL WORK REQUIRED TO READ 
4 5 ; OR WRITE S PAGES IN A WORKING SET SWAP IMAGE. 
407 ; THE CAL 10, THER SWPREAD OR SWPWRITE IS ACTUALLY A CO-ROUTINE 
408 ;: CALL WHICH RETURNS ONLY AFTER ALL SEGMENTS OF THE 1/0 OPERATION 
4 ; HAVE BEEN PERFORMED. THIS RETURN IS EFFECTED BY A SPECIAL KERNEL 
411: 
41 ; CALLING SEQUENCE: 
‘1 ; BSB/JSB SWPREAD/SWPWRITE 
415 ; INPUT PARAMETERS : 
41 ; RO = SWAP FILE INDEX 
417 : R2 = WSSWP FORM DISK ADDRESS 
418 ; R3 = SYSTEM VIRTUAL ADDRESS OF PTE 
4 : R4 = PAGE COUNT 
421 : O(SP) = RETURN ADDRESS AFTER 1/0 COMPLETION 
4 : : 4(SP) = SAVED 
423 ;: (SP) - SAVED R 
426 : (SP) = SAVED R 
425 : 16¢SP) - SAVED R 
4 $ ; (SP) = SAVED R10 
4e7 4(SP) = SAVED R11 
4 8 : (SP) - SAVED AP 
429 : (SP) = SAVED FP 
430 : 6 (SP) - SAVED IPL 
4 1: 40(SP) = RETURN TO PREVIOUS THREAD 
4 g + IMPLICIT INPUTS: 
4 , ; PAGE FILE TABLE ENTRY (PFL) SELECTED BY WSSWP INPUT 
4 6 $ OUTPUT PARAMETERS: 
‘ ; RO = COMPLETION STATUS OF 1/0 OPERATION 
é33 ~ 
rk .ENABL LSB 
44g SWPREAD: ; SWAP READ INITIATION 
0000" CF : 44 PUSHAB WPEXESBLDPKTSWPR ; SET ADDRESS OF BUILD PACKET ROUTINE 
E ret: SWPWRITE: SWAP WRITE INITIATION 
‘CR «6 oO9F 446 PUSHAB W*EXESBLDPKTSWPW : SET ADDRESS OF BUILD PACKET ROUTINE 
51 "CR «6 o9E 447 10$:  MOVAB W*IOROUTINE,R1 : ADDRESS OF 1/0 DATA 
1 8&€ 7D OA9 448 MOVQ  (SP)+.(R1)¢ : SAVE 1/0 END ACTION ADDRESS 
FCO BF BA OA9A 244 POPR goncne. R7, RB, »R9,R10,R11 »AP FP>; RESTORE REGISTERS OTHER THAN STANDAR 
50 52 8 EF 450 15$:  EXTZV #24,#8.R2.R GET SWAP FILE INDEX 
50 59° *DFA0 9 AA 4 or ay finG GL’ PAGSWPVCCRO), Rb; cok GASE, ADDRESS OF PAGE FILE TABLE 
U Py 
55 54 D1 OAAD 24 CMPL 4 igh ; SSAPARE REMAINING PGCNT WITH MAX TRANSFER 
3 14 OABO 2454 BGTR 208 : USE MAXIMUM TRANSFER 
ar 83 8 PP BABE S222 ong, outs RS.Re R1)+ ¢ Sive UPDATED DISK ADURESS no 
! Py 
81 6328 DE OAB9 24 , MOVAL (R$) ass tas : AND UPDATED SAVPTE 


m 6 
SWAPPER WORKING SET SWAPPER 16-SEP-1984 01:19: AX/VMS Macro v04-00 Page SY 
rive ts SWPR NS SUPURY TE = SWAPPER 1/0 ROUTINES g7 36-1382 Let ees SYS.SRCJSWAPPER.MAR; 1 st (3b) VoL 
4 SETIPL # : DROP IPL 
61 54 5 a3 rk} Suews R5,R4, (RT) ; SAVE RERAINING PAGE COUNT 
D 4 USHL : SAVE SVAPTE 
Oc A g 4 PUSHL  PFLS -¥INDOW(RO) + GET WINDOW ADDRESS 
3 55 0 ¢ 4 ROTL #9,R5--(SP) : CONVERT PAGES TO BYTE COUNT 
7E EF 4 EXTZ2vV #0.#24,R2,-(SP) + AND SOLAT BLOCK NUMBER 
6— 110A 9 4 4 ADDL  PFLSL_VBN(RO), (SP) + ADD BASE VBN 
$4 9000' CF 4 MOVE WeSCHSGL CURPEBR4 : SET PCB ADDRESS 
‘DF OOF 4 : REMQUE ay IOC$GC_IRPFL-R : GET A PACKET IF POSSIBLE 
6 4 BVC : BR IF ONE AVAILABLE 
F51B° 4 BSBW XESALLOCIRP ; ALLOCATE ONE THE LONG WAY 
55 4 MOVL RS : SET PACKET ADDRESS IN PROPER REGISTER 
14 AS FB'AF : 470 30$:  MOVAB B*{fODONE,IRPSL ASTPRM(RSS SET ADDRESS FOR COMPLET 
23 aS) = 1F ~~ -0000°CF 4? SUBB3 W*SWP$GB PRIO #31, IRP$B_PRI(RS) ; SET PRIORITY FOR TRANSFER 
F BA 4 POPR #*M<RO,RT.R2,R3> ; RESTORE VBN,BYTECNT,WINDOW, SVAPTE 
0000" DF if 47 JSB aw* LOROUTINE : CALL READ OR WRITE ROUTINE 
0 47 RSB ; AND RETURN TO ORIGINAL CALLER 
476 IODONE : ; CONTINUATION CALLED AS KERNEL AST 
38 AS DD 47 PUSHL IRPSL_MEDIA(RS) ; SAVE COMPLETION STATUS 
50 «5 p 478 MOVL R5,R + SET PACKET ADDRESS FOR RELEASE 
F4FC’ 47 BSBW EXESDEANONPAGED + AND RELEASE IT 
50 BE OD 480 (SP)+,RO : RESTORE STATUS 
481 SETIPL # PLS SYNCH + BLOCK SYSTEM EVENTS 
1150 €9 4 : RO, 608 + EXIT IF ERROR 
51 908° ¢F E 4 MOVAB W*RWSSWP,R1 : GET ADDRESS OF REMAINING TRANSFER PARAMS 
61 7D 484 MOVa = (R1) ,R2 t RESTORE WSSWP,SVAPTE TO R2,R 
54° 08°Al 3¢ 485 MOVZWL B*<RPGCNT-RWSSWP>(R1),R4 : AND REMAINING PAGE COUNT 
3 7 4 6 BEQL 608 ; DONE IF NO MORE PAGES REMAIN 
FF8O 031 4 BRW % + CONTINUE IF MORE PAGES REMAIN 
3FCO BF 88 488 60$ PUSHR #°M<R6,R7,R8,R9,R10,R11,AP,FP>; SAVE NON-STANDARD REGISTERS 
0004'DF 1 489 JMP aw*10EA ; AND CONTINUE SWAP 
491 .DSABL LSB : 
492 "END 


SWAPPER WORKING SET SWAPPER 16-SEP-1984 01:19: AX/VMS Macro v04-0 Pp 4 
Syabel table Breer eBs Bi Lbias PANCMES MecrevO4n00 age 33) 
SSARGS = GBLWRTVALID 4CF R 
$$T1 = 8 Q GLOBAL y 3 
oo PEN = ASA R 05 IMGDESC R : 
ACB$B_RMOD 2 INSWAP R 
ACBS$S MODE = OCSGL_IRPFL eereenee = § xX 5 
ACBSV~ MODE s ODON Are 8 5 
BALANCE © 5 IOEA fe $ 
BOLSL_SYSDLOG eeereeee =X 4 IOROUTINE R 
BOLSS-CRELNM_ITMLST eeereeee =X 4 IPL$_ASTDEL = 
BUGS_APTREF HIGH eeeeeere =X 5 PL$" SYNCH = 
BUGS"APTWRTERR eeerenee =X 5 RPS$B_PRI s 
BUG$_GBLPAGSZRO eeeeenee =X 2 LRPSLLASTPRR = 4 
BUGS$~ ICPAGELOC eeerenee =X IRPSL-MEDIA = 8 
BUGS_ INSNF REPAG eeeeeeee =X 5 KERNEC_MODE 00001CD R 4 
is WPFIL eeerenee =X 5 LNMSAL_HASHTBL eereeeee =X 4 

BUG$_INSWAPERR eeeeeeee x 5 LNMS$GL-HTBLSIZS eeeeenee § x 4 
BUGS_IVWSETLIST eeeeeeee =X 5 LNMSHASH eeeneeee 8 6X 4 
BUGS$_OUTSWPERR eeenenee § xX 5 LNMSINSLOGTAB aeeneeee =X 4 
BUGS_QUEUEMPTY aeeeenee =X 5 LNMSM_NO_ALIAS = 00000001 
BUGS_ZEROPAGE werenene =X 8605 LNMSM- TERMINAL = 00000200 
Copy SHELL OOOOSDF R 05 LNMSSYSTEM DIRECTORY $09 00 RG 03 

ELNMS_ACMODE = 000 3i9 LNM$_ATTRIBUTES = 44 
CRELNMS_ATTR = 000 9 LNMS~ STRING = 00000002 
CRELNMS_ITMLST = 30 014 LNMBSB_ACMODE = 9000008 
CRELNMS_LOGNAM = 00 Oe BSB_FLAGS = 00 3 
CRELNM$_NARGS = 98 9 LNMB$B_TYPE = 0000000A 
CRELNMS_T = 9 8 LNMBSL_BLINK = 00000004 

LCON 0 1F R 05 LNMBSL_FLINK = 000 300 

P 33 R 05 $L_TABLE = 0000 of 
DIRECTORIES_ARG 35 DR 04 LNMBSM_NODELETE = 0000001 
DIRECTORIES-LIST 0001DD R 04 LNMBSM-NO_ALIAS = 38 01 
DYNSC_LNM = 0000004 LNMBS$M_ TABLE 2 08 
DYNSC_ORB = B8 4 LNMBST_NAM = 00000011 
DYNSC_PC = 00 S o¢ NMBSW" SIZE = 38 08 
DYNSC-RSHT = 000000 LNMHSHSB_TYP = 8 A 
EXESACLOCIRP eeeteree =X 5 LNMHSH$C_BUCKET 2 0000C 
EXESALOPAGED eeeeenee =X 4 LNMHSHSK_ BUCKET 2 of 
EXESBLDPKTSWPR eeerenee =X 5 NMHSHSL_MASK = 0 
EXESBLOPKTSWPW eeeeeeee =X 5 LNMHSHSW. SIZE = 08 
EXE SDEANONPAGED eeeeeeee =X 5 LNMTHSB_FLAGS = 0 9 
EXESDEANONPGDS12 teneeeee =X 4 LNMTHSK_LENGTH = 000000 
EXESGL_PA eeneeeee =X 4 LWATHSL BYTES = 9 1 
EXESGL_PFATIM eeeneree =X 5 LNMTHSL_BYTESLM s D 
EXE YSTIME teenenee =X 2 LNMTHSL_CHILD = 11 
EXE RAST eeeeeere =X LNMTHSL"HASH = 1 
EXESSWAPINIT 4AC RG 4 LNMTHSL_NAME = 0009 
EXEC_MODE C9 R 4 LNMTHSL_ORB z 5 
FILE-DEV_EXEC_ARG 45 R 4 LNMTHSL_PARENT = 
FILE-DEV-EXEC-LIST R 4 LNMTHS$L_QTABLE = 1 
FILE-DEV"SUPER_ARG p R 4 LNMTHSL_ SIBLING = 1 
FILE~DEV-SUPER-LIST i 4 LNMTHSA_DIRECTORY = 
FILLPHD ef f 5 LNMTHSM_SHAREABLE 2 
GBLDROP 4 ¢ R ; LNMTHSM- SYSTEM = 
GBLRESET 481 R LNMX$B_FLAGS = 
estuatts ee 8 mrt TaBG? mii 
GBLWRTTRANS 000045A R 5 LNMXSM_ TERMINAL = 000000 § 
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SWAPPER WORKING SET SWAPPER "SrSEb=1886 OSiLRTS PNR CHGAP PER man, 2a) 
Symbol table eenteeee xX 
LNMXSM_XEND r RMCSRET CNINEG coanunan ee 
eee aa , anid a | 
NA DIRECTORIES. DESC R 6 HMGSSHRCNTNEG seeeeree =X 
CNA PILE DE DEV_DESC p 4 2 RMGSSVAPTECHK oes . 
WATER “GROUP LENGTH § R 04 BAGSURTAF YPAG 0000689 ROOF 
LNA~J08 LENGTH oS 4 NOTVALID i 4 : 
LNA “PERMANENT MAILBOX_DESC one 4 $f OPS _CMPL - 4 
{NA =PROCESS DIRECTO 168 . . OPS" CVTLW ° 4 
LNM_ PROCESS DIRECT ORY LENGTH OP$~DECL 2 5 
LNM~PROCESS-LENGTH : ae OP$_DECW . + 
UNM ~eyStER = R é OP$-INCL : 4 
LNM_SYSTEM_DIRECTORY OR 4 OP$~MOVL , 
LNMSYSTEM_DIRECTORY 12 OP$~MOVW . 
LNM_SYSTEM_DIRECTORY LENGTH ag OP$"MOVZUL . 3 
NAS YSTERCDIRCORD. BR O88 OPS-TSTL = 0000055 
Ui TEN EAE 3 R06 BABE Tags = Sontt00R 
CNA SYSTEM TABLE LENGTH dH ORBSK“LENGTH . : 
Li Sye-PIR O88 SIZ o¢ pest ACh count = 0000008 
LNA NA-TERPORARY MAILBOX_DESC the . & ORBSL ACL “AUTEX = 900000 
0G- ORBSL — 
EE sc i = Bae 
em Me oR Reiser = BS 

PROCESS ORB$Q_MODE PROT 
1 eee oe ge BRBRRSERL AS : Hasse 
LOe-PTESC se) OR ORBSS"MAX~CLASS : 14 
OG~SYSTER ee. ORBSU-REF COUNT = 9000000 
LOG~SVSTEM_LENGTH ee 4 ORBSW-SIZE ° a3 R 5 

5 ARG AS R 4 OSDISPATCH TR 82 
LOG"S~DESC ak ‘ OSINIT a . 
LOG S_LIST 00 R OSWPEXIT GR 
L eeeneeee xX 3 OSWPPCB 12 R 
MAGSALLOCPFN eeeeenee x OSWPPGS 16 R 
MMGSAL SYSPCB eeeeeere K : OUTSWAP 1 R 5 
MMGSDACCPAGF IL teeeeeee xX 5 OWSLOOP ee =X 4 
MMGSDE CPTREF one 2 P1SYSVECTORS . c 
metal teeeet | pote A : BREE 

FREWFLGS eeeteree x CBSB-PRI a. 

RAGSOL ~GPTBASE cecceeee PCBSB”TYPE ; 0 
MMGSGL -PAGSWPVC eres PCBSL -ASTOFL ° 
RAGSGL-SPTBASE seeenee dS PCBSL-PHD = 000008 
eared hide erereeee x peearepanece ~ 6 
ee i OrePAs eeeeeeee = § YX 5 
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SWAPPER ey errr Sree e-198e Obiabsts Leys VSRCISUAPPER mans 1 8) v04 
Symbol table aye le ‘ 0 
PCBSL_STS PHD U-FRRTPG . % 
PCBSL_WSSwP > PHDSW_ LAGS ~ v4 
PCBSV_INQU 2 PHDSW_PHV INDEX 4 > 
pray Fronts puDBU-PTCNTACT = $399005 
PCBSV_WAKEPEN ~ PHD W-SWAPSIZE nt 1 
PCBSW_APTC > PHDSW_WSLAS = §000000 
PCBS _GPGCNT = id WSLIST eeeeenee 8X 5 
PCOSW PPGCNT 4 PHVSGC_P1XBAS eeneene 8 86X 
PERMANENT MAILBOX _ARG 8 PHVSGL REF CBAS } AR 2 
PERMANENT -MAILBOX_LIST x PPGTBLTRANS 36h ft 3 
PFLSL_ : PPGTBLVALID 285 RG Z 
PFLSL WINDOW eereeree x PQLSAB_SYSPQL 46 G 
PF =STATE eeereeee x 3 POLS$C_SYSPQLLEN Ss ? 
PFNSAB_TYPE eeeeeeeer Xx 05 POL$_ASTLM bd 
PENSAL “BAK. tatetets HOS Pal $-B10Ln : S § 
PFNSAL PTE mone Se POLS CPULR . : 
PFNSAW_REF CNT esoveeee PQL$_DIOLM ° 
PFNSAW_SWPVBN eeeeneer YX 5 QLS$_ENQLM ; f 
PFNSAX—FLINK peceeees a ae POLS" FILLM s 6 
pase ane is | Bh ti : HH 
PFNSC_ -- “PGF LQUOTA . 
PFNSC-BADPAGLST . POLS-PRELR = 000 098 
PFNSC—FREPAGLST . POL$~TOELM . 3 
rigs erben pa weperat atts 
L 
FNSC_GPGTBL S - TA s A 
PYNBEREVPAGLST . PQL$ re = o iF 
" * 
PFNSC_PROCESS : PRSR_NOACNT . ; 
PENSCIRDERA 7 PRCSR’SSRWAIT = BOOOL IB R : 
PFNSC_RELPEND ° PROC TRANS roe 3 
PENSC_SYSTER PROCVALID 58 R 5 
PFNSC_WRT INPROG 4 PROCWRT 
PFNSM_COLLISION ya PSL$C_EXEC oa 
PFNSM_DELCON - PSLSC_KERNEL . 
PFNSM_MODIFY PSLS$C_SUPER . 
FNSS_BAK ° PTESC_ERKW . 
N$S_LOC - PTESC_URKW = wy 
PFNSS_PAGTYP ne PTESM_MODIFY e 
S"PGF ~ PTESM~OWN = BOTFFTFE 
PFNSV_BADPAG PTESM_PFN . 
V_BAK - PTESM~PROT = ? 
PENSV-AOD : PIESMCT VP! : 
BIBS PIERCY 
PHD$B_ASTLVL rs PIESS-FrN z } 
PHD$B_PAGF IL . PTE$S-PGFLVB . 8 
tea PIER ontry = 888888 
seat Crepe va = 9000000 
PHDSL—WSLX ad = 
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PTESV_TY 
PT SVT ype 


SCH$GQ"H1BWO 
SCH$GW~DELPHDCT 
SCH$GW~ QUAN 
SCHSGW"SWPFAIL 
SCHSGW” SWPF CNT 


SCH VL 
SCHSOSWPSCHED 
Sc Pu 


SWPSGL~BALSPT 
SWPSGL~BSLOTSZ 

“HISWPCNT 
SWPSGL-HOSWPCNT 
5 INPCB 
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eeeeeene 
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_ISPAGCNT 
PCNT 


SW 

WPS$GL—1SWPCN 
WP$GL—1 SWPPAGES 
WPSGL-MAP 
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WSLSV_PAGTYP 
WSLSV—PFNLOCK 


ereerees 
eeeteree K 
eeeeeene x 
eeeneree x 
eeneeeee x 
eneeneest x 
eeeeeene x 
aeeneeee x 
eerereee y 
00000018 RG 
seneerre x 
geeretee x 
BOOOOASE ROS 
etererer K 
aenenere x 
geeerere x 5 
5 R ry 
CO 
i: 
R 
‘ 
R03 
$8 R 4 
98 R 3 
BD R 4 
ED R 4 
Al R 4 
9R 4 
1 
R 
R 4 
R 4 
8S 4 
R 
SR 4 
000U041D R 4 
DEE R 4 
i 4 
R 4 
R 4 
R 4 
R 4 
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WSLSV_VALID = 

WSLSV"WSLOCK = 

WSLERR R 03 
WSLOOP R 
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! Psect synopsis ! 
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SYS. SRCISWAPPER.MAR; 1 


PSECT name Allocation PSECT No. Attributes 

Bs ( ) 9 ( ) morte USR CON ABS LCL WOSHR NOEXE NORD WNOWRT NOVEC evte 
$aB ( *) ( 7.) NOP USR CON ABS LCL EXE RD WRT NOVEC BYT 
$$$ § ( § ») § ( +) NOPIC USR CON REL LCL NOSHR EXE AD WRT NOVEC hone 
$b ( 4632.) ( -) NOPIC USR CON REL LCL NOSHR EXE’ R&D WRT NOVEC 21 
YF SLOWUSE 6 ( 13? o>) 06 ¢ -) NOPIC USR CON REL LCL NOSHR Hy WRT NOVEC BYTE 
SAE XENONPAGED 6 (¢ 2854.) O05 ¢ -) NOPIC USR CON REL LCL NOSHR XE RD WRT NOVEC BYTE 
ZSINITSPFN_F IXUP_TABLE 005A ( 90.) 06 ¢ 6.) NOPIC USR CON REL LCL NOSHR EXE AD WRT NOVEC BYTE 

Ci ee oe 
; Performance indicators ; 

Phase Page faults CPU Time Elapsed Time 
Initialization ; :00: 9? 0: 8: 1.61 
Command processing 1 :00:00. 3 704.66 
Pass 515 :00:22.4 7:01:06. : 
Symbol table sort 9 :00:02.7 :00:05. 
Pass 42 :00:06. :00:20. 
Symbol table output :00:00. :00:01.01 
Psect synopsis output :00:00.04 :00:00.04 
Cross-reference output :00:00. . :00:00. 
Assembler run totals 110 :00:32. 0:01:40.51 


The york ing seg yo was 4250 pages. 
133641 oyees 62 pages) of virtual memory were used to butter the intermediate ggde. 

ipece were pages of symbol table space ah Locate to hold 1677 non-local ane 138 local symbols. 
$3 2 source lines were read in Pass 1, produc ng 45 object records in Pass 2. 

pages of virtual memory were used to define 56 macros. 
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! Macro Library statistics H 
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Macro library name Macros defined 
$255$DUA28:(CSYS.OBJJLIB.MLB; 1 

=besseouase: t SYS STARLET ALB:2 3 
TOTALS (all Libraries) 3 


1690 GETS were required to define 33 macros. 


There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:SWAPPER/OBJ=O0BJ$:SWAPPER MSRC$:SWAPPER/UPDATE=(ENHS: SWAPPER) EXECMLS/LIB 
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